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I_n_Th i.s_Issue 

In this month's issue of CURRENT NOTES, you will find 
«any interesting and educational articles written by the 
r,esters of our Atari user groups. You will find Joe Haters’ 
program BLOCKADE which will be the topic of Novatans 

February BASIC tutorial. Also to be found is Jim Caspbell’s 
sonthly article on ATARI LOGO. He introduces us to LOGO and 
presents two saaple progress. Joe Haters presents the 
second part of his series BASIC BEAT. This month he 
continues to explain how to write a disk directory program. 
Bruce Blake talks about disk drives in his article DISK 

DRIVE INTERFACE (via SlOi. This is followed by Bob Kelly’s 
article ATARI SCUTTLEBITS. This month he compares the PCjr, 
with the ATARI 800XL. Some great Atari secrets are revealed 
in the article SUNNYVALE SECRETS written by the Secret 
Sunnyvale Correspondent. Preppie II and Lode Runner are 
reviewed this month in Jay Gerber’s software review column 
NIBBLES AND BITS. Bill Shadt makes programming a little 
easier with his utility FINDIT. And last, but not least, 
Hike Barrett tells us about a new service provided by the 
Tysons Corner Center in his article COMPUTER BROHSING. 

All this, as well as information about club meetings, 
libraries, and the BBS, is found in this issue of CURRENT 
NOTES. Happy reading !! 
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CURRENT NOTES 


February, 1984 


by Staffan Sandberg, Editor 

Now! Putting together this sooths issue of CURRENT 
NOTES was quite a job. 1 would like to thank all the 
writers for their use and effort. If you would like to 
write for the newsletter, please contact se at hose or at 
one of the meetings. If you have a nodes, the new Current 
Notes Autosated Editor will be online fros 9 PH Friday 
through 7 AH Saturday and 9 PH Saturday through 7 AH Sunday- 
starting January 27. This is a BBS. Please contact se for 
a password. 

To sake the job of being editor a little easier, I have 
split the position into five jobs. These are editor, 
sesbership director, advertising director, prosotional 
director, and correspondence director. John Lauer is 
sesbership director and I as editor. If you are interested 
in any of the other positions, please contact se. Thank you 
and happy Valentine's Day! 




CDN5UMER 


ELECTRONICS 


id 


rt» 


^«£S£A/rS Z? I SCOUM T /=• K Z C £L S 

PERCOM AT—80—S-1 ATARI SINGLE DRIVE.*329.00 

PERCOM AT-0O-A-1 ATARI ADD ON DISK DRIVE S/S..*263.00 
PERCOM AT-88-SI PD WITH PRINTER PORT S/S.*460.00 


GEM IHl — /OX PRINTER 


*289.00 


AMDEK COLOR l MONITOR 13".*285.00 

AMDEK GREEN SCREEN 12".*145.00 

THIRD PARTY SOFTWARE - YOU SELECT THE DISCOUNT!! 

ASK ABOUT AVAILABILITY AND PRICE BY MFG. AND TITLE 

157. OFF RETAIL ON ALL ORDERS 

207. OFF RETAIL ON ALL ORDERS OVER *100.00 AT RETAIL 

257. OFF RETAIL ON ALL ORDERS OVER *200.00 AT RETAIL 

307. OFF RETAIL ON ALL ORDERS OVER *300.00 AT RETAIL 

ALL ORDERS SHIPPED UPS - ADD 37. SHIPPING AND HANDLING 
- MINIMUM SHIPPING CHARGE *3.00. MARYLAND RESIDENTS 
ADD 57. SALES TAX. ALL ORDERS MUST BE ACCOMPANIED BY A 
CASHIERS CHECK, MONEY ORDER OR A PERSONAL CHECK MADE 
PAYABLE TO: CONSUMER ELECTRONICS. A PERSONAL CHECK 
WILL DELAY YOUR ORDER FOR 15 BUSINESS DAYS. SEND YOUR 
ORDERS OR FOR MORE INFORMATION SEND A SELF-ADDRESSED 
STAMPED ENVELOPE TO: 

CONSUMER ELECTRONICS 
19213 DEEP RUN COURT 
GERMANTOWN, MD 20874 
ATTN: ORDER DEPARTMENT 

THANK YOU FOR SAVING WITH CONSUMER ELECTRONICS ! 


_CURRENI_NOIES__ 

CURRENT NOTES is published monthly free of charge to the members of the Atari Club of downtown DC, Novatari (the 
Northern Virginia Atari Users Group), and A.U.R.A. (the Atari Regional Association of Maryland) by Current Notes, 11804 
Hagruder Lane, Rockville, Haryland 20852. Second-class postage paid at Rockville, HD. 

A 

The three member groups are independent groups for Atari computer users, and are not affiliated in any way with 
Atari, Inc. 

D 

The Editor of CURRENT NOTES is Staffan Sandberg, 11804 Hagruder Lane, Rockville, Haryland 20852. CURRENT NOTES In 

telephone number is 301-468-6686. News ileus, short articles, original programs, classified ads, and any other material R( 

of interest to the membership are eagerly solicited. The deadline for articles is the 2nd Friday of the proceeding Ri 

month. Nc 

No 

Hembership dues for both groups are $15.00 a year, which includes subscription to CURRENT NOTES. Dues are payable 
at the beginning of each calendar year. Dues for new members joining during the year are reduced $1.00 for each month 
which has passed since the first of the year. Dues may be paid at any meeting, or be sent to the editor. Persons 
living outside the metropolitan Washington DC area may subscribe to CURRENT NOTES for $12.00 per year. 

Advertising policy: classified ads are free to members. Commercial advertising Rate Cards are available upon 
request. 
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AyRA^GRQUP^liEEIINGS 

are held on the iirstJ^neyay_of_^ery_|onth at 7 PH in 
Room One of the Long Branch Public Library on Garland Avenue 
in East Silver Spring. Take the Beltway (1-495) to Exit 
29-B South (University Blvd East, Route 193). Follow 
University Blvd. East (Route 193) to the second light (Piney 
Branch Rd.). Turn right on Piney Branch Rd. and continue to 
the second light (Arliss St). Turn right on Arliss St. past 
the apartments to Garland Avenue. Turn right on Garland 
Ave. The Long Branch Library is on the corner. Park in the 
Library’s lot. Due to construction, please use the 
upper-level entrance. 


yOVAIARI_MEEXINGS 

are on the second_Sundajv_ of_eachjiont h, Novatari meets in 
the Greenbriar Community Center on Stringfellow Road in 
Chantilly, Virginia. Stringfellow Road, also known as Route 
645, runs south from US 50 a little sore than two miles west 
of the Fair Oaks Shopping Hall (intersection of 1-66 and 
50). There is a traffic light where Stringfellow Road meets 
route 50. The Greenbriar Community Center is on the 
left-hand side of Stringfellow Road, 1.4 miles south of 50. 
There is a small parking lot in front and a larger one just 
north of the center (that is, just before you get to the 
center). The meeting room is available from 5-9 PH, We 
offer a BASIC tutorial from 6100 to 6:30 each month. We 
also offer a monthly arcade tournament that begins at 6:30. 
The business meeting starts at 7:00 and is followed by two 
formal half-hour presentations, one focusing on hardware and 
the other on software. 


\ 


OC_GROyP_MEEIINGB 

are held on the thirdJuesday_pf_eyery_mpnth in Room 543 of 
the National Science Foundation offices, 1800 6 Street NW, 
Washington, DC. The closest subway stop is Farragut West, 
on the Blue and Orange Lines. Take the 18th Street exit, 
and walk south (against the flow of traffic) down 18th 
Street for 3 blocks to G Street. The building is on the 
corner of 18th and 8? it can be identified by a sign for the 
Hadison National Bank on the corner. Front entrance is in 
the middle of the block. Parking is available in the 
building, for a fee. The entrance is on the west side of 
13th Street, between F and G. Heetings begin at 5:30 PH and 
usually last until 8 or 9. 
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NOVATAR I NOTES 


L2L^Ji5jJrJ^iMJJ!§ _MUt 

Nhich Drive? As many of you are aware, ATARI owners 
now have quite a selection of new disk drives to choose 
from, ATARI has introduced the 1050 as a replacement to the 
S10. But there will be plenty of competition froi other 
manufacturers including PERSON, TRAK, RANA, ASTRA, INDUS, 
AHDEK has even introduced a 3” microfloppy disk drive for 
the ATARI. Several members will be available to relate 
their experience with one or more of these new drives. Ne 
will also try to have as ffiany on hand for observation as we 
can get. 

ATARI L000, Along with new disk drives, we also have 
several new languages to choose from, one of the ffiost 
exciting of which is ATARI LOGO. Recent reviews ("ATARI LOGO 
Son of LISP, 3 by Brian Horiarty, A.N.A.L.O.G, no. 14, 1984 
and "ATARI LOGO*. Looking Good," by Ken Haras, ANTIC , 
September, 1983) have strongly endorsed the ATARI version of 
LOGO. If you are looking for a language that is very easy 
to learn, powerful, and fun, ATARI LOGO may very well be 
your answer. Jim Campbell will be our featured speaker on 
LOGO. Jim, who will author the Current Notes LOGO column, 
presented LOGO to the DC Group in January and is looking 
forward to using his notes once again for us. 

ARCHON Tournament. Kids, practice your swordsmanship, 
laser blasts, and spell-casting. Ne will have an ARCHON 
tournament this month. Since it may take awhile to 
eliminate some opponents, we will try to have two computers 
available for the tournament. At the January meeting, Dan 
Greenblatt (35,735) and Joe Hertz (32,625) were the top two 
players for JUNPNAN. Craig Heatwole (30,350) and Joe liaters 
Jr. (26,500) led the contest in NINER 2049er. 

January Neeting, In spite of a scheduling mix-up 
which delayed the start of our meeting until 6:30, the new 
format of the N0VATARI meetings was well-received. The 
election of "new" officers resulted in the President and 
Vice President switching places (Frank Potter is now 
President and Steve Steinberg Vice President). Tim Kilby 
remains Secretrv and Curtis Sandler Treasurer. 

A motion was made to authorize the new Vice President 
to spend $300 on the bulk purchase of diskettes and a more 
limited sum on tape cassettes. The diskettes and tapes will 
be made available to members at cost at the February 
meeting. 

Joe 'Waters started his BASIC Tutorial by introducing a 
simple program called BLOCKADE (listed separately in this 
issue of CURRENT NOTES ) and discussing some of the 
available books and magazines on the ATARI and ATARI BASIC. 
The game will serve as the focal point of the tutorial over 


the next few months. 

A special thanks to John Baua of STS Video, 1073 Nest 
Broad Street, Fall Church, VA. (237-0558), for an excellent 
presentation on maintenance procedures and the new ATARI 
Service Contracts. Audience questions and interaction with 
the speaker clearly indicated a keen interest in the topic. 
Thanks also to Joe Waters for his discussion of the 
functions and capabilities of ATARI DOS. Because we ran out 
of time, the discussion of OSS A+ had to be abbreviated. 
We’ll squeeze it in again at some future meeting. 

Coming Events. Harch: Software: the OSS ACTION 
language? Hardware: the 600XL and 800XL computers. April: 
Software: Database packages? Hardware: the ATARI printers. 
Nay: Software: new Nusic programs? Hardware: the new 
1400XL and 1450XL computers (if they are available). 

June: Software: Graphics packages? Hardware: Joysticks, 
Trakballs, etc. 

dc_currenis 

fekMijjLitLiyfiM-cgiETH 

As the unpleasant task of completing Fora 1040 
approaches, the time is ripe to review what our Ataris can 
do to aid us in this painful exercise in slimming our 
checkbooks. Having demonstrated the "Home Accountant" froffi 
Continental Software, in January, we will proceed, to its 
companion program “Tax Advantage” which uses the data files 
of the Home Accountant as part of its input. 

The meeting will also feature a talk by John Bauffi of 
STS Video, our local Atari service center on the care and 
feeding of our Ataris to keep them in proper running order 
and answer quenstions about what problems we can expect and 
what to do about them. His January presentation to the 
Novatan group was well received and this will allow the 
D.C. group to benefit from John's expertise. 

Finally, since we want our meetings to be fun, we will 
play a bit with the "Pinball Construction Set" by Bill 
Budge, advertized with the following quote attributed to 
Steve Nozniak "The best program ever written for an 8-bit 
machine" 
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AURA_yPDAIE 

L0N6BRANCH PUBLIC LIBRARY - TAKOHA PARK, HD 


AGENDA Tor FEBRUARY 1, 1984 

7:00 PH Informal discussions and disk/cassette claiis 

7:30 PH CONVENE HEETING 

Reading of the minutes 1/4/84 
Treasurer's report 
Communications report 

Changes in the newsletter - present * future 

7145 PH ANNOUNCEHENTS 

Next meeting date, place and time 
ELECTIONS !c" DUES TONIGHT - $15! 

(No newsletters without payment of dues!) 
Announcements from the membership 
OFFICER VACANCIES: 

SYStem Operator 
Treasurer 

Corresponding Secretary 


8:00 PH 



FIRST PRESENTATION 

'The Hedge' is a clever utility that allows you 
a 1imi ted extension of BASIC, such a viewing 
variables, etc. After only a few months, Steve 
Gauss has some interesing addtions he would like 
share with us. The Hedge is public domain 
and is in our library! 


8:15 PH SECOND PRESENTATION 

A spectacular Horld Har I aerial dog-fighting 
game, BLUE HAX, will be deionstrated by Hike 
Rinzel. Test your skill and learn something 
about flying as well! 

8:30 PH OPEN FLOOR 

GENERAL ELECTIONS and PAYMENT OF DUES!! 

Formal announcement of additional committees 
needing staff and peripheral support. 

Additional A.U.R.A. Officer vacancies. 

General questions and interchange of information 
from the membership and, if present, selected 
guest speakers. 

8:45 PH ADJOURNMENT of GENERAL BUSINESS HEETING 

Due to construction on the upper-level entrance to the 
library, we may no longer use this entrance. Therefore, we 
must exit D0HNSTAIRS as the library doses - Everyone must 
^ be out of the building by 9:00 PH! Please help maintain our 
good standing with the library staff by leaving by 9 PH! 


AURA HINUTES - January 4, 1984 

1. Next meeting will be February 1 at 7:00. 

2. AURA part of the COMPUTER AGE BBS will be discontinued 
due to lack of use. In near future we hope to have an 
answering machine on Applied Computer Associates' (ACA) 
340-0100 number which, after normal business hours will give 
an AURA message after the regular business message telling 
about the next meeting agenda, snow emergency, etc. 
Eventually, the 424-4112 number will be a BBS, 

3. Current issue of "ANTIC" has printer-related articles, 
including one on how to print fonts. Current issue of 
"Creative Computing 8 has an article on how to write off your 
computer on your taxes. 

4. For those who have an 800XL or 1200XL, ATARI has a free 
translator program that will run Atari 800 programs. Have 
your serial number and call ATARI at (800) 5 o8-854j. 

5. Staffan Sandberg, editor of "Current Notes" described 
future plans for the newsletter—it will be at least 24 
pages with never more than 257. ads. Articles are wanted and 
can be downloaded from a modem. Call him at 468-6688. 

6. Line Halen demonstrated SCIT0R, a personal finance and 
record keeping package. It is menu driven, interfaces with 
VISICALC, and you can have up to 60 categories. He rated it 
’very good’ tor a small business. 

7. Bob deso’d the 800XL and the ftfiNfi drive. The disc drive' 
has had some quality control problems, but otherwise okay. 
XL has nice features. To get fine scrolling, POKE 622,255 
(not described in manual). 


8. Bruce demo’d the TRAK drive. Has a printer port built in 
and a 4K buffer among its features. 

7. The group voted to have dues of $15.00 per year with no 
pro-rating as of this time. 
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brary^News 

by Bob Danson 


New DCOH: 

This ionth brings a complete revision to one of the Groups 
most popular volumes, the Data Communications disk. DCOH 
has been expanded and replaced by a two-disk set with 
optional printed docuaentation. JTERH has been replaced 
with a aodified version (3.8) that will run at 300 or 1200 
baud. AHODEH has been updated to include a new version 
(1.82) and a binary load version. BISKFER, a prograa to 
transfer entire disks, has been added. Nany of the 
documentation text files have been revised and a new file 
describing all the disk files has been added. The two-disk 
set will be available for $7. For those members with the 
old DCOH disk the new disks can be obtained for $3 and the 
original DCOH disk in trade. If you don't have a printer, 
listings of the text files (17 pages) can be obtained for an 
additional $1. 

Hidden Option! 

There is a “hidden" option in the D.C. menu program that 
is not shown in the Help screen. By entering a single 
numeric digit that corresponds to a disk drive address (such 
as ”1" for Dl) the directory from the disk in that drive 
will be read. This allows you to change disks without 
re-running the prograa. 

DUP.SYS 2.of! 

The modified version of DUP.SYS provided on the DFIX 
volume will not work properly if it is written to another 
disk using it's "H" coaaand. This problem, apparently an 
interaction between DUP.SYS and the aenu prograa on the 
DFIX volume, can be circumvented by using the standard ATARI 
DUP.SYS to format a new disk and using the "H" command to 
save the standard ATARI DOS to that disk. Then, using the 
"C" or "0“ DUP.SYS command, copy DUP.SYS 2.6f from the DFIX 
volume to the new disk in place of the standard DUP.SYS. 
DUP.SYS 2.6f can then be used normally form the new disk. 

Programs Needed! 

Please! If you have any public domain programs that are not 
in the D.C. Library contribute them! If you're not sure if 
a program is in the public domain, contribute it anyway - 
all programs are screened prior to publication. Bring your 
programs to any D.C. meeting or call Bob Danson at 780-0758. 


New sk^UCKiiD JiDtM 

The time has come for a new D.C. Disk Librarian. I 
took on the task of being D.C. Librarian one year ago and 
now wish to move on to other activites within the Group. 

If you have a bit (a lot?) of time to spend on 
managing, maintaining, and creating the D.C. Library, desire 
to learn more about your ATARI hardware and software, and 
want to work with other interesting and knowiedgabie ATARI 
users, this is the job for you. It'll be hard work, but 
extremely rewarding! Call Bob Danson at 780-U7 j 8 for 
additional information. 


new_passwordsii 

by John Lauer 

New member numbers and passwords have been issued this 
month. They can be found on the top row of your mailing 
label. Please note that your old member number and password 
have now been voided. 



“ Well ... 1 guess that program wasn't com¬ 
patible with my computer /” 
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A.N.A.L.O.G.. Disk Library 

by John Brophy 

Ne are setting up a group purchase of the A.N.A.L.O.G. 
Compendium, There is no discount on the price, but the 
clubs will get a tree set of disks. Ne intend to distribute 
the disks to Coffipendius* purchasers at our cost for the 
media, less any price break we can get on shipping charges. 

To participate, send $16.95 (checks payable to John 
Brophy) to: 

John Brophy 

A.N.A.L.O.G. Librarian 
9300 Shari Drive 
Fairfax, Va. 22032 

Be sure to include your NAME, ADDRESS, AND PHONE NUMBER, so 
I can contact you when the books arrive. Unidentifiable 
money will be donated to Children's Hospital. Delivery will 
be made at the Novatari and DC /nestings, or by appointment 
at my house. 

The deadline is 11 Feb 84? any money received after 
that will be returned. 1 would appreciate getting orders as 
soon as possible, since the more I have when I call the 
magazine, the better our bargaining position will be. 

ARfiUD IC (?) Update 

by John Brophy, SYSOP 

STATISTICS: During 15-17 January, we received 244 calls 
including 34 disconnects, for an average of 70 cal 1s/day. 
Average call length was 10.5 minutes, which means the line 
was in use 12 hours, 18 minutes per day. Hedian call length 
was 9 minutes, most frequent length was 5 minutes. 

(N)EWS—19 Jan: This column will be available as menu 
option N? it will be updated more frequently than the 
newsletter, I hope, V. the date it was written will appear in 
the menu. 1 expect a lot of readers initially, who were 
looking for the (S)BS Numbers, which will become option B. 

(B)ownload problems—Please tell me what software you are 
running when you have difficulty. Remember, ARHUDIC does 
NOT support XMODEM protocol. If you are uploading, use 
LISTed files? put ML into a BASIC program that POKEs decimal 
values. 

ARHUDIC?—was named for its original phone #. A 
pronouncable word for the new number might be a good idea. 
I have listed all combinations, and the sayable ones start 
with GAL, HAL, or HAK, followed by M, N, or 0, h end in NXT, 
HYT, NYT, MKT, or 0KT. Or perhaps some genius can come up 


with a catchy sentence whose initials spell the number, 
vote for your favorite with option L, and I'll print the 
totals in (N)ENS. 


DEAR EDITOR 


Dec effioer 28, 1383 
Dear Sta*fan, 

Tie snon orograsi ( 8 7ext an Braohics 8 a ) by Cnucfc Bela 
reprintec in the December newsletter sees a good job of 
placing text on the 8R.8 in-res gravies screen, it *ets 
you write text anywhere on the screen, demits sub- and 
superscriptins, and even features double-height letters 
H2 lines per screen). It compares favorably to M T:% the 
ftPX autorun utility tnat lets you prim text and grannies 
in any craoHics ®obe. The trouble with “' 2 11 is that, i-ike 
so mnyflt an utilities, it boots from a cold start and 
therefore can’t De used with other autorun programs. 

Da 15 program as printed had one fnmor "feature, 
however, that disturbed mi in double-height Robe the 
vertical strokes appear as dotted lines. Only every other 
scan lire * lights up. 15 

kere’s a short patch for those who' prefer their letters 
solid. It replaces line 9918 of the existing program. 


‘8918 03=Di+YY* T T*XXni“l sFQR 2=2 "0 7sPOKE 
B3+Z*TT,PEEX«D2+Z) 

Wd$ I- T“*=36 ThBi D4*Bi+(YY+&5)^T^XX+U-l 1 POKE 

D4+Z*T“,PEEKtDS+ZJ 

9938 &cX7 ZiMEXT UsRTURM 


A*so encloses is a check for Mbership renewal, j here’s 
mch wore to our twin user groups than tie newsletter, out 
“Current Notes" alone is worth the rnmersm. 
Congratulations to both you and Paul Chapin on a great 
job. 

Sincerely, 

X* & 

. )aaj3\ 

Bud Btoiker 
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BLOCKADE 
by Joe Haters 

Hay back in Auqust, 1981, CQHPUTE! published a short 
BASIC gase for the ATARI called BLOCKADE developed by 
Douglas Pinho. The idea for this version is a direct 
descendent of that early CONFUTE! article although even 
back then the game concept used in BLOCKADE was not new. 
This is a two-player gase. Each player uses a joystick to 
control the direction of movement of a growing line. The 
idea is to keep your line growing as long as possible 
without running into (1) the border, (2) your opponent's 
line, or (3) your own line. Since your opponent cannot run 
into your line, you can, with clever placement of your own 
line, block his/her access to whole areas of the playing 
field. 

I choose this gase to start our tutorial series for 
several reasons. The gase itself is very simple to 
understand and requires a sinisus of physical dexterity. 
Flayers who have never even held a joystick soon find that 
they can put on a cospetitive perforsance. The 
"competitive” aspect was another reason. This is a great 
party gase. After just a few rounds, you will see Grandpa 
and Uncle George locked in a deadly serious battle to see 
just who will block who! Besides the playability aspects, 
the program is not too long and it does illustrate the use 
of a great many of the cossands found in ATARI BASIC. 

Since we will be using this progras to illustrate ATARI 
BASIC, I will not explain the whole thing in detail now but 
rather just give a brief sketch of the sain parts. Lines 20 
- BO initialize a nusber of variables. In most cases these 
variables are used to improve the readability of the progras 
(GOSUB QUIET is easier to understand then 60SUB 172). 
Various short subroutines used by the progras are defined in 
the lines between 100 and 300. 

The sain progras starts at line 310 and ends at 350. 
Ne draw a title page (subroutine TITLE is in lines 905-980), 
draw the playing field (subroutine FIELD, 705-845), begin 
the gase (subroutine BEGIN, 610-680), draw the lines until 
soseone crashes (subroutine ACTION, 405-499). After a 
crash, if neither player has reached a score of 10, we go 
back to draw another field and play another round. Nhen one 
of the players reaches a score of 10, we display the winner 
(subroutine DONE, 505-585) and ask the players if they want 
another gase. If yes, we go back to TITLE where one of the 
other gase options can be chosen if desired. If no, gase is 
over. 

Try and type the gase in and play it before the 
February seeting. Be sure to bring your copy to the 
tutorial that will start at 6100. For those of you who have 
a sodes, I will try and put the gase on ARHUDIC. If you 


don't yet have a “text" book, I would recossend Inside 
ATARI Basic: A Fast, Fun, and Friendly Approach, by Bill 
Carrie as a painless introduction to the language for adults 
and kids alike. One of the best all-around guides to the 
ATARI cosputer (including the progras recorder, disk drives, 
and printers) as well as ATARI BASIC is Your ATARI 
Cosputer: a guide to ATARI 400/800 Personal Computers, by 
Ion Pool with Martin McNiff fc Steven Cook. 




2 REM 1 B L 0 C A D E 

t 

! 

4 { Joe Naters 

i 

6 REM JNovatari Tutorial 
February, 1984 1 

10 REM =============== INITIALIZE VARIABLES 


20 =53279: STARTS: QPTI0N=3 
40 DIM GN3i3i:6MS!li=121:6MS(2>=96:6HS(3)=81 
50 DIM B$(40),BLANK!!40):BLANK*(1!=" ":BLANKI(4G)=“ 
*: BLANK* !2)=BLANK.$U) 

60 180:BQX=20Q:BL0CKS=220:PAUSE=240 
70 IELD=700:TITLE=900 
80 GOTO MAIN 

100 REM ============== JOY: READ JOYSTICKS 


106 J=STICK(PN-1) 

108 IF J=15 OR J=5 OR J=6 OR J=9 OR J=10 THEN DX=0:DY=0:B0T0 
122 

110 IF J=7 THEN DM:DY=O:SQT0 118 

112 IF J=ll THEN dx=-i:dy=o:gqtq 118 

114 IF J=13 THEN DX=0:DY=1:GOTO 118 

116 IF J=14 THEN DX=0:DY=-1 

118 IF PN=1 THEN DX1=DX:DY1=DY:G0T0 122 

120 IF PN=2 THEN DX2=DX:DY2=DY 

122 RETURN 

130 REM =============== PR: PRINT TEXT SCREEN 

136 POKE TXTR0W,VAL(Bt(1,1)):POKE TXTC0L,VAL(B$12,3)) 

140 PRINT B$(4,LEN!B$))i:RETURN 

150 REM =============== SCORE: SHOW SCORE 

156 POKE TXTR0W,2:P0KE TXTCQL,4:? PIS;“ “i 
158 POKE TXTRQH,2:P0KE TXTC0L,34:? P2Si" "! 

160 RETURN 

170 REM =============== QUIET: SHUT SOUNDS OFF 


176 FOR S=0 TO 3:S0UND S,0,0,0:N£XT SlRETURN 
190 REM =============== BELL: MAKE BELL SOUND 
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'86 FOR V=14 TO 0 STEP -0.4 
^88 SOUND 0,PITCH, 10,VlSOUND 1,PITCH+1,10,V 


190 NEXT VlGOSUB QUIET:RETURN 

200 REM =============== BOX: DRAW SHALL BOX 

206 PLOT X,Y:DRAWTO X+1,Y‘. DRAWTO X+l,Y+l:DRAWTO X,Y+1:DRAWT0 
X, Y 

208 80SUB QUIET:RETURN 

220 REH =============== BLOCKS: ADD TO BANE 3 


226 COLOR 3:X3=INT < XMAX/35-5:FOR 1=1 TO 2+ROUND 
232 X=RND(0)*X3:Y-RND(0)*YHAX:SOUND 0,X+Y,10,8,:G0SUB BOX 
234 X=X1+4+RND(0)+X3:Y=RND(0)+YHAX:SOUND 1,X+Y,10,8:G0SUB 
BOX 

236 X=X2+4+RND(0)*X3:Y-RND10/*YHAX:SOUND 2,X+Y,10,8:GOSUB 
BOX 

238 NEXT I:GOSUB QUIET:RETURN 

240 REH =============== PAUSE: WAIT A WHILE 


242 FOR W=1 TO WAIT:NEXT W:RETURN 

300 REH ==============> RAIN: PROGRAH STARTS HERE 

_ 

310 GOSUB TITLE 
320 GOSUB FIELD 
330 GOSUB BEGIN 
340 GOSUB ACTION 

^350 IF P1SC10 AND P2S<10 THEN GOTO 320 
360 GOSUB DONE 

370 IF B$="Y" THEN P15=0:P2S=0:R0UND=0:GQTQ 310 


380 END 

390 REH =============== PROGRAH ENDS HERE 

400 REH =============== ACTION: HOVE PLAYERS UNTIL CRASH 


405 PN=1:GOSUB J0Y:X1=X1+DX1:Y1=Y1+DY1 

410 PN=2:GOSUB J0Y:X2=X2+DX2:Y2=Y2+DY2 

415 COLOR 1:LOCATE XI,Y1,Z1:PLOT Xl,Yl:SOUND 1,Xl+Yl,10,10 

420 COLOR 2:LOCATE X2,Y2,Z2:PLOT X2,Y2:S0UND 2,X2+Y2,10,10 

425 IF X1=X2 AND Y1=Y2 THEN Z1=2:Z2=l:SOTO 445IREH BOTH 

CRASH 

430 IF ZlOO OR Z2O0 THEN GOTO 445:REH ONE PLAYER CRASHES 
435 GOSUB QUIET:GOTO 405:REH NOBODY CRASHES. KEEP GOING. 
440 REH-> CRASH DETECTED 


445 IF Z1>0 THEN P1S=P1S+1:T0NE=60 
450 IF Z2>0 THEN P2S=P2S+1*.T0NE=243 
452 IF Z1>0 AND Z2>0 THEN T0NE=121 
455 GOSUB QUIET 

460 FOR L=0 TO 14:SOUND 0,200-10*L,10,L:GOSUB 490:NEXT L 
465 FOR W=1 TO 5:PITCH=10»W+RNDI0)*10+100:F0R V=14 TO 0 STEP 

170 SOUND 0,PITCH,10,V:SOUND 1,PITCH+1,10,V:NEXT VlNEXT 
^W: GOSUB PAUSE 

472 PITCH=TONE:GOSUB SCORE’.GOSUB BELL:GOSUB PAUSE 

475 FOR L=14 TO 0 STEP -0.6:S0UND 0,10*L,10,L:GOSUB 490:NEXT 

L 


485 WAIT=200:GOSUB PAUSE:RETURN 

489 REH CHANGE COLOR OF LOSING PLAYER 

490 IF ZDO THEN SETCOLOR 0,P1C,L 
495 IF Z2>0 THEN SETCOLOR 1,P2C,L 

499 RETURN 

500 REH =============== DONE: GAHE FINISHED, SHOW WINNER 


505 GRAPHICS 2+16:IF P1S+P2S>=20 THEN GOTO 555 
510 IF P1S+P2S>=20 THEN GOTO 555 

515 POSITION 7,2:? #6??:POSITION 8,5 

520 IF P1S=10 THEN B$="TWQ" 

525 IF P2S=10 THEN B$=“ONE“ 

527 ? #6;B$:POSITION 3,8:? #6,"i5 the winner!":WAIT=50 
530 FOR 1=1 TO 6 

535 POSITION 8,5:? 161” "i:GOSUB PAUSE 

540 POSITION 8,5:? #6;B$j:GOSUB PAUSE 
545 NEXT I‘.GOTO 570 
550 FOR 1=1 TO 6 

555 POSITION 5,51? #6;“GAME TIED!“:BOSUB PAUSE 
560 POSITION 5,5:? #6;“game tied!*:GOSUB PAUSE 
565 NEXT I 

570 POSITION 3,10:? #61 "another gate ?"1 

575 OPEN #1,4,0,"K:":GET #1,X:B$=CHR$<X):CLOSE #1 

580 IF BJ= a Y" OR B*=“N B THEN POSITION 17,10:? #6jB$:RETURN 

585 SOUND 0,X,12,1O:F0R W=1 TO 20:NEXT WlSOUND 0,0,0,0:60TO 

575 

600 REH =============== BEGIN: GET PLAYERS READY 

610 =ROUND+i 

620 B$=" 017R0UND “". GOSUB PR 

630 =“ ":GOSUB PR 

640 WAIT=100:G0SUB PAUSE 

650 B$="217/s£W: GOSUB PR:PITCH=121:G0SUB BELL 

660 B$=“217 S£7 ":GOSUB PR:PITCH=108:GQSUB BELL 

670 B$=“217 SO! “:GOSUB PR:PITCH=96:GOSUB BELL 

680 RETURN 

700 REH =============== FIELD: BORDER AND INITIAL POSITIONS 


705 GRAPHICS GH'.POKE CRSINH, 1 
710 PlC=INT(RND(0!*16i 

715 P2C=INT(RND!0)*16):IF P2C=P1C THEN GOTO 715 

720 BRC=INT!RND(0)*16):IF BRC=P1C OR BRC=P2C THEN 720 

725 SETCOLOR 0, PIC, 4:SETCOLOR 1,P2C,8‘.SETCOLOR 

2,BRC,4:SETCOLOR 4,0,0 

730 COLOR 3:REH DRAW BORDER IN COLOR NO. 3 

735 PLOT 0,0:DRAWTO XMAX,G;DRANTO XMAX,YMAX:DRAWTO 

O.YHAX:DRAWTO 0,0 

740 REH ==> PICK START POSITIONS <== 

745 Xi=INT(XHAX/3):X2=2+X1 
750 +RNBI0)*Y3) 

755 COLOR UPLOT Xl,Yl:REH DRAW PLAYER 1 

760 COLOR 2:PL0T X2,Y2:REN DRAW PLAYER 2 

765 IF 0PT=3 THEN GOSUB BLOCKS:REH HAKE GAHE 3 HARDER 

770 Bf="001PLAYER TlGOSUB PR:B$=“031PLAYER 2":G0SUB PR 

780 B$=“102SC0RE“:GOSUB PR:B$= M 132SC0RE":GOSUB PR 

790 IF ROUND>0 THEN GOTO 810 
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AIARI_LOGO 
by Jim Campbell 


795 REN ==> ONLY PRINT THIS HESSASE FOR THE FIRST ROUND <== 
800 2First Player to”:GOSUB PR 
805 B$=“li2Score 10 LosesSOSUB PR 
810 GOSUB SCORE 

815 B$=“307(PRESS BUHCH TO CONTINUE) GOSUB PR- 

820 IF STRIG(0)<>0 AND STRIOIDOO THEN GOTO 820:REH WAIT 

FOR BUTTON 

825 REH ==> ERASE 1ST HESSAGE <== 


830 B$="012 ":GOSUB PR 

835 B$= H 112 H :GOSUB PR 

840 B$=”307 ":GOSUB PR 

845 RETURN 

900 REH =============== TITLE: WRITE TITLE PAGE 


905 GRAPHICS 2:SETCOLOR 2,0,0:P0KE CRSINH,l:OPT=l 
910 POSITION 6,3:? #6;"blockade” 

915 POSITION 7,5:? 16?°GAHE “JGPT 

920 B$= !! 007USE 0PJ10H TO CHANGE GAHE. M :GOSUB PR 

925 8$=”21 OUSE S7MI TO BEGIN.“’.GOSUB PR 

930 REH ==> CHECK CONSOLE KEYS FOR OPTION OR START <== 

935 POKE CONSOLE,8:X=PEEK(CONSOLE):IF XOSTART AND XOOPTION 
THEN GOTO 935 

940 IF XOSTART THEN GOTO 960 

945 OPT=OPT+l:IF 0PT=4 THEN GPT=1 

950 POSITION 12,5:? #6;OPT:PITCH=GHS(OPT):GOSUB BELL:GOTO 

935 

955 REH ==> SET GRAPHICS NODE, X AND Y LIHITS <== 

960 IF 0PT=1 THEN GH=3:XHAX=39:YHAX=19 

965 IF 0PT=2 THEN GH=5:XHAX=79:YHAX=39 

970 IF 0PT=3 THEN GH=7:XHAX=159:YNAX=79 

975 P1S*0:P2S=0:ROUND-O:REM START WITH SC0RES=0 

980 RETURN 


RE NUMBER-IT 
IN A FLASH 


An Atari BASIC line renumbering utility, 
RBNUMBER-IT offers the following 
features: 


I 100% Machine Language 
I Does Not Use Page Six 

• Co-Resident-CalTable At Any Time 

• Renumbers Internal Line References 

• Lists Lines With Variable Line References 

• User Friendly 

All these features for only $9.95 plus 

plus $2.80 shipping and handling. Order your's 

now from SAGEWARB SYSTEMS. 

DISK Only.MC* VISA* Check or M.O. 

SAGEWARE SYSTEMS 

P.0, BOX 45* Owasso* OK 74055 
918/272-3428 


What was the underlying reason you decided to buy your 
computer? Price, gases, lots of software, populauity, or a 
super-slick sales person? No matter, but how much thought 
was given to the programming aspects of the computer? 

Remember when you bought Pac-Han and the salesman 
reached up on the shelf and said "You 7 11 be needing the 
BASIC cartridge if you 7 re going to do any programming"? 
After two weeks of playing Pac-Han, you began to wonder what 
else the computer could do. Your kids asked you to write a 
BASIC program, so you created a program to display their 
names on the screen. You then asked your twelve-year-old to 
do something—anting--besides Pac-Han, and I’ll bet you 
got every excuse in the book. 

In the data processing environment there is a saying: 
"K.I.S.S.," which means “Keep It Simple, Stupid." Your 
family can learn compuer language if you work to achieve 
only a li_tUe success at a time. Hany day-to-day problems 
are resolved by breaking them down into smaller parts and 
then solving the small parts or problems. Why not treat 
computer questions in the same manner? 

Logo is a great language because it encourages you and 
your children to explore use of the language by moving 
"turtles" around the screen. You 7 II want to try making your 
own screen designs and varying the collrs. While doing 
this, you 7 11 make mistakes, which is another way of 
learning. The Logo package will prompt you out of any 
problem; weird results may display when you first try your 
procedure, but you can quickly correct the commands and 
execure the procedure again. Your attention is focused on 
one procedure at a time, but on e procedure may call 
another, and then another. You execute one procedure, it 
looks good, then several in a small sequence, and they check 
out. Results are instantaneous, and it is a great feeling 
when all procedures execute correctly. 

The following Logo program, called "Start," was written 
by Brian Harvey of Atari, and demonstrates the power of 
procedures. Draw your own screen design by moving the 
“joystick" and depressing the trigger occasionally. The 
other program, called “Plants," is easier to follow but 
requires the use of an arc (curves). 

Reverence materials are quickly becoming available and 
I recommend the following books from the local public 
library: 

Hindstqrss - Papert Seymore 

flUlfjA9S ~ Harold Abelson/HcGraw-Hill C90% compatible 
to Atari Logo) 

Atan_Lmc> - Can be ordered from Atari by calling 
800-538-8543, costs approximately $99.95 
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TO START 

INSTRUCTIONS 

SETUP 

HELP 

DRAM 5 

END 


TO INSTRUCTIONS 
SETB6 1 

TS CT SETCURSOR 110 2] 

PR [VIDEO TURTLE! 

PR C3 PR C3 

PR [PLUS IN A JOYSTICK IN PORT #13 
PR [3 

PR [TO CHANGE TURTLE’S PENCOLQRl! 
PR [PRESS THE JOYSTICK BUTTON! 

PR [3 

PR [TURTLE HAS YELLOW PEN DOWN! 

PR C3 PR [3 

PR [TO RECALL COMMANDS:! 

PR [PRESS H FOR HELP! 

SETCURSOR [4 203 

PR [* PRESS ANY KEY TO BEGIN *3 

KEYPRESS RC 

END 

TO KEYPRESS :ANYKEY 
END 


TO CHANGEPN 

IF PN=2 ESETPN 0 STOP! 
SETPN ( PN + I ) 

END 



TO DRAW I STEP 
IF KEYP [PEN.UP.DOWN RC3 
CHECKJOY JOY 0 
DRAW 1STEP 
END 



TO SETUP 

CT CS FS ST TELL 0 
SETPN 0 
SETPC 1 75 
SETPC 2 35 
SETBS 1 
SETC 15 

WHEN 3 [CHANGEPN CHANSETURT.CLR3 
END 


TO HELP 
CT SS 

PR EU PICKS UP THE PEN! 

PR [D PUTS DOWN THE PEN! 

PR [X PUTS REVERSE PEN DOWN! 
PR EC CLEARS THE SCREEN! 

PR EE ERASE HELP! 

END 


TO PEN.UP.DOWN lUPDQWN 
IF :UPDOWN = "E ECT FS! 
IF IUPDOWN = 11 H [HELP! 
IF :UPDOWN = “X [PX3 
IF 1UPDOWN = “C [SETUP! 
IF :UPDOWN = "U [PU3 
IF :UPDOWN = “D EPD3 
END 


TO CHECKJOY IPOS 
IF IPOS < 0 ESTOF 
SETH 45 * IPOS 
FD I STEP 
FD I STEP 
END 


TO PLANTS IDIST 
FS 

PENUP 
LT 90 
FD IDIST 
RT 90 
PENDOWN 
PLANT FD 90 
PENUP 
RT 90 

FD IDIST * 2 
LT 90 
PENDOWN 
SETPN 2 
PLANT 
SETPN 0 
END 


TO PLANT 
PENUP 
FD 50 
PENDOWN 
FLOWER 
BACK 120 
PETAL 
BACK 20 
END 


TO FLOWER 

REPEAT 10 [PETAL RT 330 / 
END 


103 



TO ARC I RADIUS IDES 

ARC! 0.174532 * ’.RADIUS IDEG / 10 

IF 0 = REMINDER IDES 10 [STOP! 

FD 0.174532 * IRADIUS / 10 * REMAINDER I DEG 10 

RT REMAINDER I DEG 10 

END 
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BASIC_BEAJ 
by Joe Waters 

Review of the Problem. 

Last month, to help illustrate BASIC programing 
techniques, we started a project to solve a common problem 
the management of our diskette library. Since one of the 
most fundamental precepts of programming is to understand 
what we want to accomplish, let's restate our ultimate goal. 
We want to see, either on the screen or printed on paper, 
the answers to questions that we have about our diskette 
library. In addition, we want to obtain our answers with 
minimal effort on our part. 

Now, what will it take to accomplish this? To answer 
questions about our disk library, we need information about 
our library, or in other words, a database filled with data. 
Before we fill anything with data, we have to decide what 
data we want and how to store it. Before we store the data, 
we have to get it. For this problem, that means we have to 
oe able to read the disk directory and save that information 
in a file. The directory is on the diskette in one of our 
disk drives. Therefore, before we can even get started, we 
have to know something about the number and kinds of disk 
drives attached to our system. Similarly, when we get ready 
to print results, we will have to know something about the 
characteristics of our printer. 

We could get the information we need by asking the user 
about the working environment everytiae the program is run. 
However, our normal working environment may not change much 
and answering the same set of questions ail the time would 
soon become tedious. Alternatively, we could specify the 
relevant characteristics right in our program. This is 
usually the easiest solution, but it does have 
disadvantages. First of all, the program would only work 
for our system. And if we did make any changes (we want our 
printed listings a little wider or we purchase a new disk 
drive), we would have to search out the relevant variables 
in the original code and change them ~ sometimes much 
easier said than done. 

In this month's column, we illustrate a more general 
solution to the problem. We create a file to store 
information about the working environment. When the program 
starts, it reads this file and sets all relevant parameters 
accordingly. An additional option in our main menu allows 
us to change, and save if desired, any of these parameters 
any time we want. 

Outline of a Solution. 

When the program starts, it looks for the file that 
contains data on our working environment. If the file is 
found, it is read and control passes to the main menu. If 
the file is not found, the user is prompted for the relevant 


facts and the file is created before going on to the main 

menu. The main menu is expanded to include an option to 

change any of these settings. 

We need information on disk drives and the printer. We 
also allow the user to customize screen color. To handle 
disk drives, we introduce an eight-element array called 
BTYPE (for Drive TYPE). Each of the eight elements 

corresponds to one of the possible eight disk drives that 
can be linked to an ATARI. If the value of an element is 
zero, the drive is not available. A value of 1 indicates a 
single density drive? 2 indicates double density. The 
setting of printer options is postponed until we are ready 
to deal with printing. Color options are indicated by three 
variables: BKC (background color), 8KL (background 

luminance), and CHL (character luminance). 

Implementation of the Solution. 

Sounds easy enough. Now, how do we implement the 
solution? Change the main program to call a routine, named 
PROFILE, before going to HENU. Develop separate routines to 
read the profile data (RPROFILE), save the data (SPROFILE), 
create the original data (CPROFILE), and change the profile 
(CHPRO). The changes are accomplished in three distinct 
routines: CHBI3K for the disk drives, CHPRINT for the 

printer, and CHCOLOR for colors. Several short utility 

routines are also introduced as we go along. 

Hethodology. 

Before launching into code development, let me explain 
the method of presentation. Last month all of the code was 
printed at the end of the article. I don't want to 
duplicate the entire program each month as it grows. At the 

same time, listing fragments at the end of the. text would 

impede the tutorial nature of the effort. So I have decided 
to list the various components we are adding (or revising) 
right with the descriptive text. If you add these lines to 
your program, you have a working copy of the current state 
of the effort. However, many of the individual components 
can stand on their own and be incorporated into your other 
programs, 

Naifi Program 

The only change in our main program is the addition of 
a line (225) calling the PROFILE subroutine: 

200 REN ============================ 

201 REN > MAIN PROGRAN STARTS HERE < 

202 REN ============================ 

210 S0SUB INIT 

220 S0SUB TITLE 

225 S0SUB PROFILE 

230 S0SU8 HENU 

240 END 

250 REN ============================ 
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New Subroutines 

I include the subroutine naaes at the beginning of the 
program. The CHPRO routine is put at line 9000 following 
the other main menu routines. The KEYED routine was 
introduced last sonth. This month we add four additional 
short utility routines (line 110). The routines relating to 
the PROFILE are in line 120. Routines changing the settings 
are listed in line 130. 

90 L1BRD=5000:LIBUP=6000:LI8SR=7000 
100 LI8PR=8000:CHPRO=9QOO 
110 KEY8D=300:SCREEN=340:BADKEY=350:PA 
USE=360:PRCEN=370 

120 PROFILE=11000:CPR0FILE=11200:RPR0F 
IL E=11300:SPR0FILE=11400:HPRQFILE=11600 
130 CHDISK=13000:CHPRINT=14000:CHCQL0R= 

15000: RDC0L=15200:RDLUH=15300 

New Variables 

Recall that the initial values of our variables and the 
dimensions of arrays are found in the INIT routine. B! is 
used as a general string variable. BLANK! holds all blanks. 
I’ve already mentioned the DTYPE array. Note that the 
initial setting assuses all zeros except for a 1 in 
DTYPE(1)» i.e. one single density disk drive. DSTAT! holds 
the English equivalent of the 0,1,2 values found in DTYPE. 
The four variables UP!, DN!, LT!, and RT! hold the four 
arrow keys on the ATARI. I’ve defined the® using the CHR! 
function only because ®ost printers can’t print these arrow 
characters. 

19000 REN ************************** 

19001 REM INIT: INITIALIZE VARIABLES 

19002 REM ************************** 

19010 DIM K!U),Bi(405 ,BLANK!(38) 

19020 DIM DTYPE(8),DSTAT!(42) 

19030 DIM UP!(2!,DN!(2),LT!(2S,RT!(2) 

19100 B!(l)=“ ”:Bi(40)=" ":B!(2)=B!(1> 

19102 BLANK!Sl)=” ”:BLANK!(38)=" ":BLft 
NK!(2)=BLANK!(1) 

19105 BKC=9:BKL=4‘.CHL=10 

19110 FOR 1=1 TO 8:DTYPE11>=0:NEXT I:D 

TYPE(1)=1 

19120 DSTAT!=“N0T AVAILABLESINSLE DEN 
SITYD0UBLE DENSITY" 

19130 UP!(1,i)=CHR!(27):UP!(2,2)=CHR!( 

156) 

19131 DN!(1,1)=CHR!(27!:DN!(2,2)=CHR!( 

157) 

19132 LT!!1,1> =CHR!(27):LT!(2,2)=CHR!( 

153) 

19133 RT!(1,1)=CHR!(27):RT!(2,2)=CHR!S 
159) 

19300 RETURN 


The Profile 

The main PROFILE routine checks to see if a file called 
DISKLIB.PRO is available on drive 1. Ne do this by trying 
to open the file for reading and immediately closing the 
file. The STATUS coasand is then used to check the status 
of the disk drive. If ERR0R=1, everything is OK; the 
progra* calls RPR0FILE to read the data and then returns to 
the aain progra*. If ERR0R=170, the file was not found on 
the disk. Ne call the CPR0FILE routine to create the file 
before returning. For any other error, we print out a short 
sessage with the error nuaber and give the user a chance to 
react (disk drive not on?). 

11000 REM ************************** 

11001 REM PROFILE: READ/CREATE 

11002 REM ************************** 

11010 REM DOES DISKLIB.PR0 EXISTS 
11020 TRAP 11040 

11030 OPEN #1,4,0,"DUDISKLIB.PRO" 

11040 CLOSE 11 

11050 STATUS #1,ERROR 

11060 IF ERR0R=1 THEN B0SUB RPR0FILE: 

ETURN 

11070 IF ERR0R=170 THEN B0SUB CPR0FILE 
:RETURN 

11080 6GSUB SCREENIPOSITIQN 2,4:? "DIS 
K ERROR NO. ERROR:?:? "CHECK DISK D 
RIVE BEFORE C0NTINUINS." 

11090 60SUB PAUSE:SOTO 11020 

SCREEN and PAUSE Routines. 

Two short, but useful, routines are introduced here. 
In 11080, before we print out our aessage, you see a call to 
a subroutine called SCREEN. Quite often throughout the 
program, the screen is cleared before new inforaation is v 
presented. A 6RAPHICS 0 coaaand clears the screen. 
Unfortunately, it also resets the color registers. Since 
the user selects the screen colors, color registers must be 
altered after each 6RAPHICS 0 coaaand. This is done in the 
SCREEN routine. Poking a 1 into 752 turns the cursor off. 

340 REM **************************** 

341 REM SCREEN: PRINT NEH SCREEN 

342 REM **************************** 

345 GRAPHICS OlSETCOLOR 2,BKC,BKL:SETC 

. 0L0R 1,0,CHL’.PQKE 752,1:RETURN 

The PAUSE routine gives the user tiae to absorb 
inforaation on the screen. It prints out a prompt, centered 
on the bottoa line of the screen, and waits for the user’s 
response before contin==uing. 

360 REM **************************** 

361 REM PAUSE: HOLD SCREEN UNTIL KEY 

362 REM **************************** 

365 POSITION 7,23:? "(HIT ANY KEY TO C 
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ONTINUE)“i iSQSUB KEYED:RETURN 
Read and Save the Profile 

The routines to read and to save the profile data are 
siiilar. The TRAP stateaent assures that the progras does 
hot crash if an error is encountered (you run out of data 
during the read or have a write-protect tab on during the 
write/. Channel 42 is opened for either read (4) or write 
(8) access to the file DlDISKLIB.PRQ. The data read (or 
written) are the three color variables followed by values 
for each of the eight ele»ents in the DTYPE array. When we 
expand the data saved in our profile, we can add the new 
variables to each routine. The channel is closed when we 
are finished reading or writing. 

11300 REN ************************** 

11301 REN RPROFILE: READ PROFILE 

11302 REM ************************** 

11310 TRAP 11390 

11315 OPEN #2,4,0,"DlDISKLIB.PRO” 

11320 INPUT #2,8KC: REN COLOR DATA 

11322 INPUT #2,BKL 

11324 INPUT #2,CHL 

11330 FOR 1=1 TO 8: REM DISK DATA 

11332 INPUT #2,X 

11334 DTYPE!I)=X 

11336 NEXT I 

11390 CLOSE #2 

11395 RETURN 

11300 REN 

11400 REM ************************** 

11401 REM SPR0FILE: SAVE PROFILE 

11402 REM ************************** 

11410 TRAP 11490 

11415 OPEN #2,8,0,"DlDISKLIB.PRO" 

11420 PRINT #2,BKC: REM COLOR DATA 

11422 PRINT #2,BKL 

11424 PRINT #2,CHL 

11430 FOR 1=1 TO 8: REM DISK DATA 

11432 X=DTYPE(I) 

11434 PRINT #2,X 
11436 NEXT I 
11490 CLOSE #2 
11495 RETURN 

, Setting, and Changing, Options 

As you’ve just seen, reading and writing froa a data 
file is a relatively siaple process. Ail that reaains to be 
done now is to get the inforaation we want for the file. 
Since the steps taken to create the initial inforaation are 
the saae as those needed to change the inforaation, the 
routines to specify disk, printer, and color settings are 
kept distinct. When we are initially creating the file 
(CPR0FILE), we print out a aessage explaining what we are 
doing and then send the user through each of these change 


routines. Later, we use another routine (CHPROi in the aain 
aenu to allow the user to change whatever settings he wants. 
I’ll discuss each of these in turn. 

11200 REM ************************** 

11201 REM CPR0FILE: CREATE PROFILE 

11202 REM ************************** 

11205 SOSUB SCREEN:INV=l:R0W=l:B$=”DIS 
KETTE LIBRARIAN":SOSUB PRCEN:INV=0 
11207 R0W=3:E$=“PR0FILE“:SOSUB PRCEN:P 
0SITI0N 2,6 

11210 ? " I need to deteraine your 
standard working environaent. I will 
store” 

11220 ? "this data in a file called 

DISKLIB.PRO. The ’PRO’ is sh 

ort for" 

11230 ? "PROFILE. This file will hold 
data on the nuaber and kind of dis 
k drives," 

11240 ? “the kind of printer, and the 
colors you want used with this progr 
a«.": ? 

11250 ? ” You can change any of th 
ese settings with the CHAN6E PROF 

ILE option.": ? : ? 

11260 SOSUB PAUSE:SOSUB CHDISKlSOSUB C 
HPRINTJSOSUB chcolorisosub SPR0FILE 
11270 RETURN 

Creating the Profile, 

You’ve already been introduced to the SCREEN 
subroutine. I aa sure you understand the print stateaents 
as well as the call to the individual routines in 11260. 
The call, however, to PRCEN in lines 11205 and 11207 is new. 
PRCEN prints B$, centered on the page (hence the naae), at 
the line indicated by ROW. If the value of the INV variable 
is nonzero, Bl is printed in inverse video. Thus 11205 
prints "DISKETTE LIBRARIAN", centered and in inverse video, 
on line one and 11207 prints "PROFILE" in the center of line 
three. 

370 REM **************************** 

371 REM PRCEN: CENTER B$ ON SCREEN 

372 REM **************************** 

373 CLEN=LEN(B$):CGLUMN=INT((40-CLEN)/ 

2):POSITION COLUMN,ROW 

374 IF INv=0 THEN ? 8$:SOTO 376 

375 FOR 3=1 TO CLEN:?CHR$(ASC(B$(J,3) 

)+128);:NEXT 3 

376 RETURN 

The variable CLEN is set to the length of B$. To 
center this value on a 40-coluan page, calculate the spaces 
left after subtracting CLEN froa 40, divide this answer in 
half, and assign the result to COLUMN. Position the cursor 
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at COLUMN,ROW. If INV is 0, print 8 $ and return. If not, 
^ print B$ in inverse video by adding 128 to the deciaal code 
for every character in B$, Printing any phrase, in regular 
test or inverse video, centered on the row of your choice, 
can be useful in a great sany prograss. Esperiaent with 
PRCEN until you understand how it works. 


Changing the Profile. 

To allow us to update the profile settings, we add one 
more line to our initial Bain aenu (1045 below). I’ve also 
reprinted lines 1030 and 1050 froa last aonth. The aenu 
should display with a box drawn around it. You draw the 
corners of the box with CTRL 0,E,Z, and C. The top and 
bottoa lines are drawn with CTRL R and the sides with SHIFT 
=. Once again, since the ATARI graphic syabols don’t lend 
thesselves to printing, I’ve respecified the lines for the 
top and bottoa of the bos using the CHR$ function. Feel 
free to type the actual graphic characters in your copy if 
you like. 


1000 REM ************************** 

1001 REM MENU: PRESENT MAIN MENU 

1002 REM ************************** 
1010 8 GSUB SCREEN:POSITION 11,1 

1030 ? CHR$(17);:F0R 1=1 TO 26:? CHRK 
18! 5 :NEXT I:? CHRK5) 

1045 ? *! 81 CHANGE PROFILE !" 


1050 ? CHR$(26H:F0R 1=1 TO 26:? CHRK 
18)j:NEXT 3:? CHRK3) 


The CHPR0 routine is very similar to the aain aenu. Me 
present the user with five possible choices. The first 
three deal with the various options, the fourth saves these 
changes peraanently, and the fifth returns the user to the 
aain aenu. The pokes to 82 in 9025 and 9075 aove the left 
aargin over to 10 before printing the aenu choices and back 
to 2 when leaving the subroutine. It is used to siaplify 
centering the box. 



9000 REM ************************** 

9001 REM CHPR0: CHANGE PROFILE 

9002 REM ************************** 
9010 G0SUB SCREEN 

9020 R0H=l:INV=l:B$="CHANGE PR0FILE":G 
QSUB PRCEN:INV=0 
9025 POKE 82,10:? :? 

9030 ? CHRK! 17):FOR 1=1 TO 18:? CHRK 

18);:next i:? chrksi 

9032 ? “! 1) DISK DRIVE(S) !“ 

9034 ? “! 2) PRINTER !" 

9036 ? "i 3) COLORS !” 

9038 ? “! 4) SAVE CHANGES !" 

9040 ? ■! 5) RETURN !" 


9042 ? CHR$(26):F0R 1=1 TO 18:? CHRK 
18);:next i:? chr$(3) 

9044 ? :? "ENTER CHOICE: *5 
9050 G0SUB KEYBD 

9060 IF K$<"1” OR K$>"5“ THEN G0SUB BAD 
KEY:GOTO 9050 
9070 ? K$ 

9072 IF K$="5“ THEN GOTO 9100 
9075 POKE 82,2 

9080 ON VAL(K$) G0SUB CHDISK,CHPRINT,C 
HC0L0R,SPR0FILE 
9090 SOTO 9010 
9100 RETURN 

Hrong Answers. 

If a key other than the nuabers froa 1 through 5 is 
pressed, we go to BADKEY where a short rasping sound warns 
of an inappropriate choice before checking the keyboard 
again. You can expedient with the sound coaaand and put in 
whatever sound you prefer. 

350 REM **************************** 

351 REM BADKEY: SOUND FOR BAD INPUT 

352 REM **************************** 

355 SOUND 0,150,12,10IFQR 11=1 TO 20:N 
EXT 11:SOUND 0,0,0,0:RETURN 

Disk Drive Settings 

Me want a screen that allows us to easily indicate the 
nuaber and type of disk drives available. A single 
keystroke should be sufficient to indicate the status of 
each drive. There are aany different ways to accoaplish 
this. Perhaps you can iaprove on the aethod shown here. 
You aight, for exaaple, have the coaputer check the status 
of each drive autoaatically. Be forewarned, however, that v 
it is not a simple task to have the coaputer change the 
density of a disk drive froa within a BASIC prograa. 

Before exaaing the BASIC code, let’s look at the screen 
presented to the user: 

Disk Drive Settings 
DRIVE NO. DRIVE SETTING: 


1 single density 

2 DOUBLE DENSITY 

3 NOT AVAILABLE 

4 NOT AVAILABLE 

5 NOT AVAILABLE 

6 NOT AVAILABLE 

7 NOT AVAILABLE 

8 NOT AVAILABLE 
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Use (US and CD! to change options. 

Use il) and (R) to change settings. 

Use RETURN when finished. 

Initially, the setting for drive 1 is in inverse video 
to indicate the drive we are dealing with. The arrow keys 
{shown by the U, D, L, and R in the proapt above only 
because of the difficulty in printing these svabols) are 
used to aake selections. The up and down arrows allow the 
user to select a disk drive. The left and right arrows 
change the setting for that drive aaong the different 
possibilities. 

The proapt at the bottoa of the screen is generated by 
a routine called HPROFILE (for HELP PROFILE!, It is also 
used to assist in the selection of the various color 
options. 

11600 REH ************************** 

11601 REN HPROFILE: HELP FOR PROFILE 

11602 REH ************************** 

11610 POSITION 2,19:? "- 


11620 POSITION 2,20:? “Use ";UP$;“ and 
";DN$5" to change options.” 

11630 POSITION 2,21:? “Use ";LT$!“ and 
";RT$;“ to change settings." 

11640 POSITION 2,22:? "Use RETURN when 
finished.”; 

,11650 RETURN 


The CHDISK routine has two basic parts. It displays 
the initial screen shown above (13030 to 13110). Then, it 
goes to the keyboard for the user’s response and changes the 
screen accordingly until the RETURN key is pressed (13120 to 

13270), 

13000 REH ************************** 

13010 REH CHDISK: DRIVE SETTINGS 
13020 REH ************************** 

13030 G03UB SCREEN:R0W=1:1NV=1:B$= a DIS 
K DRIVE SETTINGS":GGSUB PRCEN:INV=0 
13040 REH Print Initial Screen 
13050 POSITION 7,4:? "DRIVE NO.":P0SIT 
ION 19,4:? "DRIVE SETTING:" 

13060 POSITION 7,5:? "- - 


13070 FOR 1=1 TO 8 

13080 R0W=I+6:11=14*(BTVPE<I))+1112=11 
+13 

13090 POSITION 10,RON:? I;:G0SU8 13270 

13100 NEXT I 

13110 GQSU8 HPROFILE 

13120 INDEX=1 

13125 REH Change Settings as Required 


13130 IF INDEX=9 THEN INDEX=1 
13140 IF INDEX=0 THEN INDEX=8 
13150 RQN=INDEX+6:DTY=DTYPE(INDEX):11= 

14*DTY+i:12=11+13 

13160 POSITION 19,R0N:F0R J=I1 TO 12:? 
CHR$SASC(DSTAT$(J,J))+128i;:NEXT i 
13170 GGSUB KEYED 

13180 IF K=155 THEN GOSUB 13270:RETURN 
13190 IF K$="-“ OR K*="_" OR Kt=CHR$(2 

8) THEN INDEX=INDEX-1:GGSUB 13270:6QTQ 
13130 

13200 IF K$="=" OR K$=":“ OR K$=CHR$!2 

9) THEN INDEX=INDEX+l:GOSUB 13270:6QT0 
13130 

13210 IF K$=“+" OR K$="\“ OR K$=CHR$(3 

0) THEN DTY=DTY-i:G0T0 13240 

13220 IF K!=“*“ OR K$=" A " OR K$=CHR$(3 

1) THEN DTY=DTY+1:G0T0 13240 

13230 GOSUB BADKEY:GOTO 13170 

13240 IF DTY=3 THEN DTY=0 

13250 IF DTY<0 THEN DTY=2 

13260 BTYPE(INDEXi=DTY:GOTO 13150 

13270 POSITION 19,RON:? DSTAT$!Il,I2l: 

RETURN 

There are soae tricks used in achieving the effects we 
want. These will be faailiar to experienced prograaaers, 
but if you are just starting, all of the code Bay not be 
intuitively obvious. I want to take soae tiae to explain 
how to print part of a string variable since this is a 
technique used quite often. 

A new variable is found in a one-line subroutine at 
13270. DSTATt holds 42 characters arranged as 3 groups of 
14 characters each (see lines 19020 and 19120 in INIT 
above). The 14-character expressions represent the three 
possible states of a disk drive SNOT AVAILABLE, SINGLE 
DENSITY, and DOUBLE DENSITY! and correspond to the nuabers 
in DTYPE (0, 1, and 2). If the value of DTYPE(n) is 0 for 
drive n, we want to print DSTATi(1,14), the first 14 
characters of DSTATS, Siailarly, if DTYPESn) is 1, then we 
print the second 14 characters, DSTAT$(15,28), and if 
DTYPE(n) is 2, we print the last 14 characters, 
DSTAT$(29,42). It is no accident that these expressions are 
all set to an identical length (note the extra space between 
NOT and AVAILABLE in line 19120). A aatheaatical foraula is 
used to calculate the first (ID and last (12) character we 
want printed froa DSTATII 

11 = 14*DTYPE(n) + 1 

12 = II + 13 

The value of BTYPE(ni is either 0, 1, or 2. For each of 
these values, calculate II and 12 and convince yourself that 
this foraula works. Do you understand why? The foraula is 
used in 13080 to deteraine the beginning and ending 
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characters needed fro® DSTATI before calling 13270 to print 
the®. 

The variable INDEX keeps track of the disk drive. It 
is initially set to 1. Nhen the up and down arrows are 
pressed, the value of INDEX decreases or increases 
accordingly. Lines 13130 and 13140 keep us within the 1 to 
8 liiits. In 13150 we calculate the appropriate row, the 
value in DTYPE for that drive (the variable DTY), and the 
starting and ending positions needed from DSTATI. In 13160 
we print the appropriate expression froa DSTAT$ in inverse 
video and then go to the keyboard for the user's 
instructions. 

If the RETURN key (K=155) is pressed, we are done. If 
not, we check to see if the up or down arrows were pressed. 
(He check ail three possibilities so that pressing the 
'arrow', SHIFT 'arrow', or CTRL 'arrow' all generate the 
appropriate response. If up or down is pressed, we change 
the value of INDEX, print DSTAT* in noraal letters, and then 
jump to 13130 where INDEX is checked and the new selected 
value is printed in inverse video. 

Lines 13200 and 13210 check for the left or right 
arrows. If either of these are pressed, the value of DTY is 
changed (staying within the 0-2 bounds), the corresponding 
value in DTYPE is changed, and the new DSTAT$ setting is 
printed. 

If the key wasn't an arrow key or the RETURN key, we go 
to 8ADKEY before checking the keyboard again. 

Printer Settings. 

Ne are not yet ready to iiipie®ent the printer profile 
but we can include a dummy routine that will be written 
latter*. 


14000 REN ************************** 

14010 REN CHPRINT: CHANGE PRINTER SETTINGS 
14020 REN ************************** 

14030 G0SUB SCREEN 

14040 ? “PRINTER SETTINGS”:6DSUB PAUSE 
14050 RETURN 

50550 

6001150500 
Setting Colors. 

Setting our own screen colors is fun, but it does 
introduce soiie programming complexity. Once again, let s 
start by looking at the initial screen display*. 

COLOR SETTINGS 

BACKGROUND COLOR 


Turquoise Blue 

BACKGROUND LUNINANCE 
<—Darker- 1 —> 

CHARACTER LUNINANCE 
<--Ned Light-> 


Use (U) and (D) to change options. 

Use (L) and (R) to change settings. 

Use RETURN when finished. 

The technique we use is similar to that used to specify 
disk drive settings but there are soie isportant differences 
here. Initially, the text describing the background color, 
“Turquoise Blue”, is shown in inverse video to indicate that 
is the setting we are adjusting. If the left or right arrow 
key is pressed, the background color on the screen changes 
as does the phrase describing the color. Pressing the up or 
down arrow keys selects among BACKGROUND COLOR, BACKGROUND 
LUNINANCE, AND CHARACTER LUNINANCE. On either of the 
LUNINANCE settings, changing the luminance is reflected both 
by the color change as well as a change in the descriptive 
text. Nhen the RETURN key is pressed, the chosen colors 
remain in effect throughout the program. (If you are typing 
this code in, be sure to replace.all of the GRAPHICS 0 
statements last month with G0SUB SCREEN.) 

Although the technique is similar to that used in the 
disk drive case, the implementation is trickier. Ne don't 
have an INDEX that allows us to move from one option to the 

other and at the same time tells us our position on the 

screen and where to look for the option setting. What’s, 
more, the settings available for background color are 
entirely different from those used to indicate background 
and character luminance. 

Ne could dimension a very long string variable to hold 
all the color and luminance settings. But that would use up 
a lot of memory for little benefit. Instead, we will use 
READ and DATA statements to get the information we need and 

put it in 8$. Two subroutines are included to get the text 

describing the 8KC, BKL, and CHL settings. The first, 
RDC0L, restores the data poiner to the line containing the 
Appropriate color description, reads B$, and returns. As 
you can see, the order of the DATA statements is important. 

15200 REN ****mm*ft#****m***m* 

15201 REN RDC0L: READ COLOR DATA 

15202 REN m*mw***************** 

15210 RESTORE 15220+BKC:READ 8$:RETURN 

15220 DATA Black to White 

15221 DATA Brown to Gold 

15222 DATA Orange to Yellow 

15223 DATA Terra cotta to Pink 
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15224 DATA Mulberry to Magenta 

15225 DATA Violet to Lavender 
15228 DATA Indigo to White 

15227 DATA Sky Blue 

15228 DATA Royal Blue to Baby Blue 

15229 DATA Turquoise Blue 

15230 DATA Ultramarine to Powder Blue 

15231 DATA Midnight Blue to Aquamarine 

15232 DATA Sea Green to Turquoise Green 

15233 DATA Forest Green to Kelly Green 

15234 DATA Olive 

15235 DATA Khaki to Yellow 


The RDLUM subroutine is similar. Since both SKL and 
CHL need a luminance setting, the RDLUM has been generalized 
to handle both . cases. The luminance value (either BKL or 
CHL! is placed in a variable named LVAL before this routine 
is called. The luminance values can be 0,2,4,8,8,10,12, or 
14. Line 15310 converts these numbers to 1,2,3,4,5,8,7, or 
8 and places the result in L. Line 15320 restores the data 
pointer to the appropriate text, reads in B$, and returns. 


15110 GQSU8 HPR0FILE 

15120 GOTO 15400 

By this time, you should recognize everything going on 
in setting up the display screen. Our PRCEN subroutine 
comes in handy here where every line is centered. utter 
printing the help prompt in 15110, the initial screen is 
done and the program jumps to 15400 where we handle the user 
interaction. 

The remainder of the CHC0L0R routine is divided into 
four distinct parts, one each for the color options and one 
to read and interpret keyboard responses. Changes in 
background color are handled at 15400, changes in background 
luminance at 15500, and changes in character luminance ac 
15800. The keyboard is queried at 15700. We want to use 
the arrow keys again to indicate selections. The up and 
down arrows should move us among the three possible options 
while the left and right arrows change the settings for an 
option. The RETURN key indicates that we are satisfied with 
our choices. 


15301 REM RDLUM: READ LUMINANCE 

15310 L=1NT((LVAL+2J/2) 

15315 RESTORE 15320+LlREAD B$:RETURN 

15321 DATA darkest-> 

15322 DATA {--Darker-> 

15323 DATA <-—Dark-> 

15324 DATA <-Med Dark-> 

15325 DATA <---Med Light-> 

15328 DATA <-Light-> 

15327 DATA <-Lighter—) 

15328 DATA <-Lightest) 

Now that we know how to get test describing the color 
and luminance settings, we can print out the initial screen: 

15000 REM m*********************** 

15010 REM CHC0L0R: COLOR SETTINGS 
15020 REM »*MH*m»«*******m*« 

15030 G0SUB SCREEN 

15040 inv=i:r 0 »=i:b$=*colqr settings": 

G0SUB PRCEN 

15050 INV-01RQW=4:Bl= 8 BACKGROUND COLOR 
8 :G0SUB PRCEN 

15080 R0W=8:B$="BACKGR0UND LUMINANCE”: 

GQSUB PRCEN 

15070 RQW=12:8$="CHARACTER LUMINANCE": 

G0SUB PRCEN 

15080 G0SUB RDC0L:R0W=5:G0SUB PRCEN 
15090 LVAL=BKL:G0SUB RDLUM:R0W=9:GQ3UB 
PRCEN 

15100 LVAL=CHL:G0SUB RDLUM:R0W=13:G0SU 
B PRCEN 


Reading the Keyboard. 

Let '5 look first at the code that checks which key is 
pressed: 

15700 S0SUB KEYED:IF K=155 THEN RETURN 
15710 IF K$="=" OR K$=“!“ OR K$=CHRI(2 

8) THEN INV=0:G0SUB PRCEN:GOTO AFTER 
15720 IF K$=“-“ OR K$="_" OR K$=CHR»(2 

9) THEN INV=0:GQSUB PRCEN:GOTO BEFORE 
15730 IF K$=“+“ OR K$="\“ OR K$=CHR$(3 
0) THEN CHANGE=-1:GOTO HERE 

15740 IF K$=“*“ OR K$=” A " OR Kt=CHR»(3 
1) THEN CHANGE=+i:G0TQ HERE 
15750 60SUB BADKEY:GOTO 15700 

If the RETURN key is pressed, we are all done so we 
exit the CHCQLQR subroutine. Lines 15710 and 15720 check 
for up or down arrows. If one of these is pressed, we 
reverse the inverse flag (INV=0), print B$ (which will hold 
our color or luminance data!, and then go to the option 
either BEFORE or AFTER the current one. The next two lines 
check for left or right arrows. If pressed, we want to 
change the current option setting. We do so by setting the 
value of a variable called CHANGE to either +1 or -1 and 
then going to the current option code represented by the 
variable HERE. If any other key is pressed, we call BADKEY 
and then check the keyboard again. 

Now let’s look at the code to change background colors: 

15400 REM SELECT BACKGROUND COLORS 
15410 R0W=5:AFTER=15500:HERE=15440:BE 
F0RE=15600 

15420 INV=l:6QSUB RDC0L:GQSUB PRCEN 
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15500 REN SELECT BACKGROUND LUM 
15510 R0»=9:AFTER=15600:HERE=15540:BEF 
ORE=15400 

15520 INV=1:LVAL=BKL:SOSUB RDLUNlGQSUB 
PRCEN 

15530 GOTO 15700 

15540 REN CHANGE BACKGROUND LUM 

15550 8KL=BKL+2*CHANGE 

15552 IF BKL>15 THEN BKL=0 

15554 IF BKL<0 THEN BKL=15 

15560 1NV=0:B$=BLANK$:G0SUB PRCEN 

15570 SETCOLOR 2,BKC,BKL:G0T0 15520 

15600 REN SELECT CHARACTER LUN 

15610 R0«=13:AFTER=15400:HERE=15640:BE 

FQRE=15500 

15620 INV=1:LVftL=CHL:60SUB RDLUHlGOSUB 
PRCEN 

15630 GOTO 15700 

15640 REN CHANGE CHARACTER LUN 

15650 CHL=CHL+2*CHAN6E 

15652 IF CHLM5 THEN CHL=0 

15654 IF CHL<Q THEN CHL=15 

15660 INV=01 B$=BLANK$:GOSUB PRCEN 

15670 SETCOLOR 1,0,CHL:G0T0 15620 


Neil, that does it for this ionth. Next south we will, 
finally, read those disk directories. 

HE SAGA OF P LAND E F R ON SE^EN 

THE F OX FIG HT S ALONE 


Planetary Defense Squadron Seven had just proven itself 
as a fighting unit. Only two days before they had driven 
off an attack upon Collins Base and its vital stores, but 
at a terrible cost. Now with only one of the eight ships... 
Foxtrot, "the Fox"...able to fight, the entire system lay in 
grave peril... 

for the sentinel posts had just reported an incoming craft, 
its zigzag maneuvers a certain prelude to attack. Then the 
outposts fell silent. 


15430 GOTO 15700 

15440 REM CHANGE BACKGROUND COLOR 
15450 BKC=BKC+CHANGE 
15452 IF BKD15 THEN BKC=0 
15454 IF BKCC0 THEN BKC=15 
15460 INV=0:8$=BLAHK*:GQSUB PRCEN 
15470 SETCOLOR 2,BKC,BKL:GOTO 15420 

In 15410 we indicate the appropriate RON value for the 
text description of the color values. Ne also set values 
for three variables. AFTER indicates where the code for the 
next option begins, HERE indicates where to go if the 
setting of this option is changed, and BEFORE indicates 
where to go if the previous option is desired. Ne set the 
inverse flag (INV=1), read in the appropriate color, print 
it and then go check the keyboard. If a change in this 
setting is desired, the prograa will return to HERE which is 
line 15440. The variable BKC is then changed by + or - 1. 
Lines 15452 and 15454 keep us within the 0 to 15 limits. 
Line 15460 clears the current text for color description and 
the next line changes the appropriate color register before 
juaping to the beginning of this option’s code where we get 
the new color text and print it. 

If you can follow the logic above, you’ll see that the 
reaaining two options are handled in exactly the saae way: 



mtB1HHt**B**(Ht*****t**H******t*H)HHHftMm***tWt**tiHHH(H(«««**iHtm**tt*t****t*t*»««H***Hmi 


Cassette or 

5 1/4 inch Floppy Disk (no briefing) 


SEVEN FOX is a game for one to five players of varying 
skill levels who each take a separate action station as the 
crew of the FOX in its desperate bid to intercept this attacker , 
bent on destroying an entire planet. The game requires an 
ATARI* computer with at least 16K of memory,(24K with 81$ Disk) 
a model 410 Program Recorder, a BASIC language cartridge, a 

a pair of knob ("paddle") controllers, and a pair of joysticks. Contact me at DCAUG meetings or write to: 


$19.00 each 


Special terms for qualifying school systems. 


Special AUDIO TRACK FEATURES : a "radio play" to provide 
background, and an audio-visual "briefing" for beginners, 
available on the cassette format make this game a unique tool 
for teaching three-dimensional rectangular coordinates. The 
team-play approach also provides practice in cooperation and 
leadership. 


Bennett Rutledge, CDP 

327 South Wayne Street 

Ar1ington, Ua. 22204—2126 

#ATARi is a registered tradenark of Atari, Inc. 
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DISK DRIVE INTERFACE (via SIO) 

Contributed by Bruce Blake 

This article contains inforaation and data froa the HYDOS 3.05 Manual, the ATARI Technical Reference Notes, and 
the ARCHIVER/EDITOR User’s Manual. 

The physical disk drives and diskettes are external to the ATARI hose coaputers and are noraally attached to the 
"serial interface connector" on the right side of the coaputer. The software in the operating systea !0S ROMs) that 
access the devices attached to the serial interface connector is called the "serial I/O driver* or SIO for short. The 
operating systea uses this driver to pass ail coaaands and inforaation to and froa the disk drive and other 
periferals. Several coaaands were defined by ATARI to coaaunicate with the 810 disk drive, but an extended set of 
coaaands is required to support double density functions. 

The ainiaua set of disk drive functions are! 


Device 

Unit 

Coiiand 

Direction 

Byte Ct. 

Aux. Bytes 

Function 

$31 

Drive# 

$21 ! 

Fro® Drive 

128/256 

1 to 720 

FORMAT DISK 

$31 

Drive# 

$50 P 

To Drive 

128/256 

1 to 720 

WRITE (no verify) 

$31 

Drive# 

$52 R 

Froi Drive 

128/256 

1 to 720 

READ 

$31 

Drive# 

$53 S 

Fro® Drive 

4 

1 to 720 

READ STATUS 

$31 

Drive# 

$57 W 

To Drive 

128/256 

1 to 720 

WRITE (verify) 


Except for the STATUS and CONFIGURE coaaands, the byte count is always 128 for a saall sector drive, and is 128 
for the first three sectors (1, 2, and 3) of a large sector drive. All other sectors on a large sector drive are 256 

bytes long. ( 

The first byte returned by the READ STATUS coaaand is expected to indicate the sector size. If bit 5 is a 1 then 
the sectors are large (256 bytes), otherwise, they are saall (128 bytesi. Bit 3 of this byte will indicate if the 
disk is write protected or not. If bit 3 is a 1 then the disk is write protected. It seeas that bit 4 will indicate 
if the disk drive is configurable or not. If bit 4 is set the drive is configurable as single or double density. 


Status Request Data First Byte 


$00,$FF,$EO,$00 

$08,$FF,$EO,$00 

$10,$FF,$EO,$00 

I30,$FF,$E0,»00 

$18,$FF,$E0,$00 

$38,$FF,$EQ,$00 


SD HP Off ATARI 810 Only 
SD WP On ATARI 810 Only 
SD WP Off 
DD WP Off 
SD WP On 
DD WP On 


two of 

the floppy disk 

Controler status byte. A low bit indicates the 

Bit 

Read 

Write 

Notes 

7 

Not Ready 

Not Ready 

Always Clear 

b 

Data Error #1 

Write Protect 


5 

Data Error #2 

Write Fault 


4 

Record Not Found Record Not Found 

Sector Hissing 

3 

CRC Error 

CRC Error 


2 

Lost Data 

Lost Data 

Should Not Happen 

1 

DRQ 

DRQ 

Always Clear 

0 

Busy 

Busy 

Always Clear 


Byte three is the nuaber of seconds required to foraat a disk. 


Byte four is not used. 

The new coaaands added are: 

Device Unit Coaaand Direction Byte Ct. Aux. Bytes Function 
$31 Drive# $4E N Froa Drive 12 1 to 720 READ Configuration 

$31 Drive# 44F 0 To Drive 12 1 to 720 WRITE Confiduration 
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These Coplands pemit reconfiguration of a disk drive on 

130 

desand. These 

coffisands also support identification of a disk 

140 

drive as single or 

double density, 

5 or 8 inch and one or two 

150 

sided. The individual bytes are defined as follows: 

160 




170 

byte 0: Tracks per side (40 for 

a standard disk drive) 

180 

byte 1: Disk Drive Step Rate (as defined by Western Digital) 

190 

Code value 

8 inch rate 

5 1/4 inch rate 

200 

0 

3 flis/track 

o sis/track 

210 

1 

6 is/track 

12 ffls/track 

220 

2 

10 ffis/track 

20 is/track 

230 

3 

15 ffls/track 

30 ffls/track 

240 


byte 2: Zero (high byte of sectore/track) 
byte 3: Sectors/Track (18 for standard diskettes) 
byte 4; Side Code (0=single sided, l=double sided) 
byte 5: Disk Type Code -- 

bit 2: 0=single density, l=double density 
bit 1: 0=5 1/4 inch diskette, 1=8 inch diskette drive 
byte 8: High byte of Bytes/Sector (0 for ATARI 810 compatible) 
byte 7: Low byte of Bytes/Sector (128 for ATARI 810) 
byte 81 Translation control — (Not valid on TRAK AT-D2) 
bit 7: 1=40 trk. disk 1/0 on an 80 trk. drive 
bit 6: Always 1 (to indicate drive present) 
bit 1: l=Handle sectors 1, 2, and 3 as full size sectors 
bit 0: l=Sectors number 0-17 (for example) not 1-18 
bytes 9-11 are not used (and should be zero) 

Send Configure Command Data 
SD 40,0,0,18,0,0,10,$80,1,0,0,0 
DD 40,0,0,18,0,4,41,$00,1,0,0,0 

Recieve Drive Configuration Data 
SD 40,3,0,18,0,0,$G,$80,$FF,$FF,$FF,$FF 
DD 40,3,0,18,0,4,11,$00,$FF,$FF,IFF,IFF 

An additional requirement is that the disk drive 
automatically switch density if required to read sector 1. This 
is necessary if one is to ’BOOT’ either single or double density 
disks. 


The following program will let you interrogate and configure 
your disk drives 


10 REH ««<<«««<»»»»»»» 

20 REH <« PERC0H DISK CONTROL »> 
30 REH «< SAMPLE PROGRAM »> 

40 REH <« >» 

50 REH <« UPDATED BY »> 

60 REH <« BRUCE BLAKE »> 

70 REH ««««««<»»»»»»» 
100 DIM BUF$!12):REH OPTION TABLE 
110 DIM R$(1):REH RESPONSES GO HERE 
120 Z=ADR!"1234"i 


TRAP 250:PRINT CHR$(125):PRINT "Drive 

Number";:INPUT DRIVE 

250 TRAP 45678‘.P0KE DCB+1,DRIVE:REH SET DRIVE IN DCB 

260 X=USR(Zi:REM READ THE OPTION TABLE 

270 IF PEEK(DCB+3)< >1 THEN PRINT "Drive NOT 

Configurable K :GOSUB 590:END 

280 PRINT “ Number of Tracks=":PEEK(A) 

290 PRINT * Step Rate Code=“;PEEK(A+l) 

300 PRINT ■* Sectors/Track=”; PEEK (A+3) 

310 PRINT " ";PEEK(A+4)+i;“ Sided Drive" 

320 IF PEEK(A+5> =0 THEN PRINT " Single 

Density“:G0T0 340 

330 IF PEEK(A+5>=4 THEN PRINT " Double Density" 

340 PRINT “ "JPEEK(A+6)+256+PEEK(A+7)5" 

Bytes/Sector” 

360 PRINT IPRINT “Hake it Single or Double density "; 
370 INPUT Rt 

380 DATA 49,1,79,128,0,0,1,0,12,0,1,0 
390 RESTORE 380:FOR 1=0 TO lllREH BUILD THE DCB 
400 READ X:POKE DCB+I,X:NEXT I 
410 IF R$=“D“ THEN 460 

420 POKE A+5,0:? "Hake Drive Single Density":PRINT 
430 POKE A+6,0 

440 POKE A+7,128 v 

450 GOTO 490 

460 POKE A+5,4:? “Make Drive Double Density":PRINT 
470 POKE A+6,1 
480 POKE A+7,0 

490 A=ADR(BUF$):REH INSERT BUFFER ADDRESS 

500 X=INT(A/256i:P0KE DCB+5,X:P0KE DCB+4,A-X+256 

510 POKE DCB+1,DRIVElREH SET DRIVE IN DCB 

520 X=USR(Z!:REM UPDATE DRIVE OPTIONS 

530 IF PEEK(DCB+3)<>1 THEN PRINT "Drive Update 

Error“:G0T0 550 

540 GOSUB 590 

550 DATA 104,76,224,7 

560 RESTORE 550:F0R 1=0 TO 3 

570 READ X:P0KE Z+I,X:NEXT I 

580 X=USR(Z):END tREH UPDATE DOS 

590 DATA 49,1,83,64,0,0,1,0,4,0,1,0 

600 REH DEVICE,UNIT,COHHAND,STATUS(DIR), 

610 REH BUFFER ADDR,TIMEOUT,SECTOR ADDR 

620 RESTORE 590:FOR 1=0 TO il:REM BUILD THE DCB 

630 READ X'.POKE DCB+I,X:NEXT I 

640 A=ADR(BUF$):REH INSERT BUFFER ADDRESS 
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130 DATA 104,76,89,228 

140 RESTORE 130:FOR 1=0 TO 3 

150 READ X:PDKE Z+I,X:NEXT I 

160 DCB=768: DRIVED 

170 DATA 49,1,78,64,0,0,1,0,12,0,1,0 

180 REN DEVICE,UNIT,COMMAND,STATUS(DIR), 

■190 REH BUFFER ADDR,TIMEOUT,SECTOR ADDR 
200 RESTORE 170:FOR 1=0 TO 1HREH BUILD THE DOB 
210 READ X:POKE DCB+I,X:NEXT I 
220 A=ADR(BUF$):REN insert buffer address 
. 230 X=INT(A/256):POKE DGB*5,X:PDKE DCB+4,A-X*256 
240 TRAP 250;PRINT CHR$(125):PRINT “Drive Number”;:INPUT 
DRIVE 

250 TRAP 456781P0KE DCB+1,DRIVE:REH SET DRIVE IN DCB 

260 a=U3R(2):REH READ THE OPTION TABLE 

270 IF PEEK (008+3)01 THEN PRINT “Drive NOT 

ConfigurabIe !i :S0SU8 590;END 

230 PRINT “ Nuiber of Tracks*"}PEEK(A) 



THE SMALL COMPUTER 

SUPPLIES STORE 

SHOP BY PHONE 
WE SHIP BY UPS 
PRICES SLASHED ON RIBBONS 
FOR THE FOLLOWING PRINTERS 

[B=brand C=cornpatibIe] 


EPSON FX/MX/RX 80[C] 3.95 
EPSON MX/FX 100CC] 9.95 

PROWRITER/NEC 8023[C] 3.95 
DIABLO HYTYFE 2 FILM[C]3.50 


6 OUTLET SURGE AND 
SPIKE SUPPRESSOR 
PRINT WHEELS 

DIABLO Plastic 
Metal 
620 

QUME 

SMITH-CORONA TP-1 
OLIVETTI 
OLYMPIA EC 
BROTHER 
DAISYWHEEL II 

HEAD CLEANING KIT 


54.95 


$6.40 

$41.50/49.95 

$11.40 

$6.40/7.90 

$4.90 

$15.50 

$26.50 

$24.95 

$27.50 

15.00 


QUME FILMCC] 

1.90 

floppy disks 


QUME FILM[B] 

2.80 

5 1/4 ss/dd 


QIME IV FILMCC] 

3.45 


NEC 5500/7700 FILMCC] 

3.30 

SENTINAL 


NEC 3500/2000 fi1m[B] 11.90 

22.50 



Kybe,3M,Verbati* 

26.50 

RELOAD YOUR OWN! 





BROWN ds/dd 

29.95 

Diablo,Qume,NEC film 

1.50 

BROWN ds/(96 tpi) 

39.95 


Epson 80.NEC 8023,Itoh 1.95 
Epson 100 3.95 


PAPER 


560-5900 

8304 Hilltop Road 


clew edge is and 20 # 26.95 Fairfax, Virginia 22031 

LABELS 3 1/2x15/16 5k 16.00 (Merrifield Area) 

Hours: Monday thru Friday 9-5, Saturday 10-2 


Atari_Scuttlebi ts 

by Bob Kelly 


Last month I indicated that the primary subject of 
discussion tor this month's column would be Commodore 
Electronics and their marketing strategy. Nhile this 
subject deserves attention - particularly since their 
strategy appears to be “caveat emptor”, it will be deferred 
in order to discuss the introduction of the IBM PCjr. 

IBM intends to spend approximately $40 million in 1984 
on advertising the jr. Shipment of the jr, to dealers is 
expected by mid-January. It is worth focusing this column 
on the market strategy and pricing policy of IBM in order to 
permit an initial comparative judgement on which machine, 
the Atari XL or the jr., is the more versatile computer for 
home applications considering technical and cost factors. 

As is known, IBM in November announced the introduction 
of its long-awaited PCjr. Competing firms reacted prior to 
the announcement in a number of ways, most of them 
defensively (e.g. postponing the introduction of new 
products - give credit here to Apple for its aggressive 
efforts). It has been over two months since the 
announcement of the "jr.“ and a clear picture of the machine 
and its capabilities is only now beginning to emerge. 

Initially, let's look at the PCjr.'s pricing structure 
and compare it to the Atari 800XL. Nhiie numbers may be 
boring to some, they are revealing in this case since they 
implicitly signal what general income level IBH seeks to 
market its product to. Take a minute to carefully examine 
the table below: 


-Computer (64K)* 

-Disk Drive 
-Printer(Dot Matrix) 

-RF Modulator for TV 
-DOS(Assume purchase of Dr.) 
-300 Baud Hodem 
-Parallel Printer Port 
-80 Column Capability 
-Enhanced 8R. Cy sound 
-Player/Missile Graphics 
-Monitor 

Total 


PCjr. 

800X1 

$670 

$250 

$480(360K) 

$420(Trak) 

$300 

$300 

$ 30 

— 

$ 65(2.1) 

Standard 

$200(card) 

$200** 

$100*** 

[Trak Dr.] 

Yes 

Yes 

$75(MS cartridge) 

Standard 

No 

Yes 

$300 

$300 

$2,220.00 

$1,470.00 


* The jr. includes 64K RAM plus 64K ROM; Atari ROM is 
smaller by a considerable amount(8K). Both include built-in 
Basic and a standard 40-column video display. 

** Cost of interface to connect modem to joystick port plus 
modem itself. 

*** Jr. requires an adapter for parallel printer port; 
printer port is standard on Trak Drive shown here. 





I 
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The comparison yields a $750 difference in total cost in 
favor of the Atari 800XL Sisply put, a PCjr, would cost 
almost 55 percent more than the Atari system configured in 
the table. The question is what do you get for this 
premium that you don't have in the Atari? 

Perhaps the most important consideration for many 
consumers is an institutional one - the IBM name. On a 
technical basis, the PCjr. 7 s RAH memory can be expanded 
upward (press accounts indicate that it can exceed 6Q0K). 
On the other hand, according to industry reports, the upper 
limit for the SOOXL series RAH expansion being planned by 
3rd party dealers is 256K. The jr. has Basic Language 
capabilities that cannot be duplicated by the Atari unless 
3rd party software programs are added to RAH Hemory, In 
this particular comparison, think of building-in the 
excellent HH8 software program "Basic Commander & Debugger" 
to your Atari Basic and you will have an idea of the power 
of the PCjr, 7 s Basic. This is clearly a plus for the PCjr. 

The PCjr, also has a remote keyboard? the Atari does 
not. The drawbacks to the remote keyboard are*. (1) If 
another jr. is operated nearby it must be run from a direct 
connect cord($20) and (2) the operator must be within 20 
feet of the system unit. On balance, I see the remote 
keyboard as a potential marketing advantage for the jr. and 
a technical headache for the User and IBH service stations. 
Both jr. and the 800XL have self diagnostic programs built 
in. Both offer two joystick ports and light pen capability 
- no difference here. 

The IBH has output jacks for both composite video and 
RSBiHi-Res) direct drive video. Atari offers only composite 
video capability. This RGB capability of the PCjr, sounds 
exciting but remember, you must pay extra for the HicroBoft 
cartridge ($75). With this cartridge, the User can obtain 
expanded sound and access 4 colors in the 320 x 200 pixels 
mode, 2 colors in the 640 x 200 mode, and 16 colors in the 
160 x 200 mode (not to mention the extra cost for a R6B 
monitor). The expanded Basic Cartridge requires an 
additional 32K of R0H for a total of 64K resident in R0H, 
The 64K version of the PCjr, has about 45K for Basic 
programming - not much different from the 800XL. 

While it would be interesting to personally speculate 
on the graphics capabilities of the PCjr., it is probably 
best to quote Ken Williams, President of Sierra-on-Line, 
"Consumers who are looking to purchase a home computer 
solely for game playing would do better to buy an Atari or 
Commodore 64... There is no way our game, Frogger, will 
ever look as good on the PCjr, as it does on the Atari or 
Commodore 64" (InfoWorld - Dec. 1983). Given that the jr. 
does not have player/missile capabilities, but rather relies 
on page flipping - buy Atari if you want graphics for 
programming or game purposes. 

In addition to the price advantage and graphics 
capabilities, the Atari offers a keyboard superior to the 
PCjr, "chiclet keys". This is not insignificant in relation 
to the expanded attention being given to word processing 


applications for home computers. 

In sum, I would say that Atari has a significant 
marketing advantage at the low and middle range of the home 
computer market. The very high end has to be, at present, 
an advantage for IBH for two reasons: (1) The relationship 
to business applications and (2) the built-in advanced Basic 
programming capabilities. This view is strengthened by the 
fact that the jr., as noted in our comparison, comes with a 
DS/DD disk drive and greater potential RAH expansion than 
the Atari XL (600K+ versus 256K). Although, from a 
practical standpoint the 62-key keyboard is a drawback as 
well as the flimsy construction of the "chiclet" keys 
themselves for business applications. 

Currently, many software houses are scrambling to 
develop programs for the PCjr, in order to capitalize on 
IBH'5 name recognition and to expand their market share. 
Some firms have stockpiled large inventories in anticipation 
of jr.'s introduction. This strategy is not without some 
risk since IBH plans to use only its outlets for sales -and 
service - no independent dealers. Further, as can be seen 
above, IBH's pricing strategy is slanted toward the higher 
end of the home computer market. Thus, with relatively 
limited sales outlets and a higher price structure, sales 
may not grow as fast as anticipated by some software houses 
- particularly for those relying solely on PCjr, game sales. 
In my opinion, 6 to 8 months from now, a few software houses 
may find themselves in deep water. 

Nil! Atari take advantage of its competitive position 
in the middle to low end and/or will it attempt to challenge 
in the high end? Your guess is as good as mine. Someone in 
Atari's strategic analysis or marketing department must have 
put together a table similar to the one shown here and 
hopefully it should contain more in-depth comparisons to aid 
in the development of marketing strategies. I say 
"hopefully" since the quote on the National Archives 
Building comes immediately to mind when speaking of Atari 
and marketing in the same sentence - "What Is Past Is 
Prologue", I certainly hope not! 


January 7-10 

19- 21 
30- 

February 2 
3-5 
7-9 
14-16 

20 - 22 
21-23 


UPCOMING EVENTS 


Consumer Electronics Show 
Data Nest 


Las Vegas 
Pasadena, CA 


Communication Networks '84 Washington, DC- 
National Software Show Hiami Beach 

Cadcon Nest San Fransisco 

Computer Science Conf. Phi 1idelphia 

1984 Office Automation Conf Los Angelos 
Softcon New Orleans 
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NXBBLES_AND_BIIS 

by Jay Berber 

Heiio fellow Atari enthusiasts and welcome to Nibbles 
and Bits, Each sonth I plan to write two reviews of current 
software for the Atari computers. The categories should 
cover the entire spectrum, from education to business. 

This month I will review two new arcade-type games: 
Preppie II? and Lode Runner. 

Preppie II, form Adventure International, is a 
whimsical game in which you are the "up and coming prepster 1 
trying to leave a fiendish network of mazes alive. Armed 
with a paint bucket that contains blue and gold pinstripe 
paint, and a special cloak that renders the wearer 
invisible, you must escape fifteen different mazes on five 
levels of play. Accompanied by a turn-of-the-century medley 
of tunes, you, Wadsworth Overcash, find yourself in a 
formidable maze with revolving doors and huge frogs who 
can’t wait to stomp you out of existence. After you finally 
cover the entire floor of the , you walk out, only to 
discover yourself on a busy thoroughfare, filled with 
viciaous golf carts and grass mowers. If you can paint the 
entire highway, you must face another frog maze. 

Saseplay on Preppie II is as smooth and fun as was 
Preppie I, the original. Husic is every bit as food, as are 
the stunning graphics. There is even a cute cartoon at he 
end of every level. Despite all this, the game gets boring 
after only a short while. Unlike Preppie where each new 
level contained a new challenge, Preppie II, has slightly 
altered mazes, and smarter frogs as you progress, but this 
is not enough to keep, at least, my interest, anyway. On a 
scale of one to ten, Preppie II rates a ’5’. 

PREPPIE II from Adventure International 
32K disk ($34.95) 
cassette ($29,95) 


Lode Runner, from Broderbund, is an action/adventure 
qame in which "you are a Galactic Commando deep in enemy 
territory." Your mission is to retrieve stolen gold from 
the Bungeling Empire. In your way are trapdoors, cunningly 
evil enemy soldiers, and many puzzels in which you must use 
your wits, rather than your reflexes to sllve. In the 150 
different rooms you will have to reaverse canyons using 
hand-over-hand bars and ladders, digging holes which the 
enemy soldiers fall into. After entering a room, you must 
find ail gold chests on that board. This isn’t easy, 
especially when three or four guards are chasing you. Nhen 
you have retrieved all the gold on a level, a ladder 
appears, and you climb up to the next level. 

Lode Runner seems to be a mixture of several top 
selling games. First is the scenario of a hero running form 
board to board in search of treasure like Epyx’s Jumpman and 
Jumpman Junior (soon to be reviewed)? the unigue digging to 
kill feature of Apple Panic (also by Broderbund)? and Donkey 


Kong’s "up the ladder to the next board," The element that 
makes Lode Tunner far superior to these games is it’s board 
generator, With this tool, you can create your own boards 
to play at any time. Ladders, floor sections, gold chests, 
trapdoors, hand-over-hand bars, even enemies can be located 
anywhere on the playing field. It is this unigue feature of 
Lode Runner that gives it a rating of 9 out of 10. 

LODE RUNNER from Broderbund 
43K disk ($34.95) 


SAVE YOURSELF SOME TIME! 

With The Programmer’s Toolkit and Atari BASIC 

Write Programs Faster! Thirty-one powerful routines are at 
your fingertips — things like decimal alignment and kid-proof 
keyboard entry. You can even play background music while 
your program executes! 

Write Faster Programs! Use the speed of machine lan¬ 
guage for disk file reads and writes, string searches, text 
justification, and player-missile graphics. And more! 

Learn Fast, Too! You don’t need to learn a new language — 
it’s all done with BASIC. A user’s manual guides you through 
forty-two diskette examples — no lengthy typing! 

Time is Money — but just a little! Thirty-one routines for 
$29.95 — that’s less than a dollar each! A free loan analysis 
program is included. 

The Programmer’s Toolkit $29.95 

(on diskette for Atari 400/800 with 24K RAM) 


At Your Dealer or from: 

SureSoft (918) 743-5363 
8177 S. Harvard, Suite 428 
Tulsa, Oklahoma 74137 


^ySure 

^Soft 


Add $2 shipping and handling. VISA and MasterCard accepted by phone. OK residents 
add 5% sales tax. Allow *wo weeks for personal checks. 

Dealer inquiries are invited. 

Atari is a trademark of Atari, Inc. The Programmer s Toolkit is a trademark of SureSoft. 
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TID BITS 


Coin_Program 

by Lora Sc Steve van Slyke - JACG 

Have you ever wanted to keep track of your coin 
collection by the date? This program was designed to do 
just that. It’s flteny supplies the ser with options of 
Input, Display, Save, Retrieve, and End the program. 
Starting with the input; it will ask you for the date of the 
coin; however, it is limited to the dates of 1900 to 1999 
for inputs. If you nave finished inputting the dates just 
press {RETURN)- twice after last date and you will proceed 
to the merry, You can then save your data on a disk, or 
retrieve data i you wish to expand your collection. In the 
display mode, you will get a number of how many coins you 
have on a certain date. Columns by decades, rows by single 
years and then at the botton of the screen you will get the 
total accumulated coins. 

The count of coins is in a single subscript array 
called P (line 701. Also the menu response (lines 162 and 
350) is checked for other inputs besides those used. The 
display takes a new approach (lines 990-1210) because it 
prints out vertically instead of horizontally. It will also 
add and dispaly the total coins in collection (lines 
1230-1250). There is a meny (lines 156-162) that gets type 
of coins being used. A record check is built in, just in 
case there are no records to save (lines 680,685). There is 
another check in case the record is full (line 585). 

If you have a cassette, instead of a disk, change line 
70 to DIN P(99)j F$!2), CATS!8},XS{1):F$=”C:" and delete 
line 163. 

10 REN ***** COINS PR0GRAN ***** 

20 REM BY LORA & STEVE VAN SLYKE 
30 REN ** 4-2-83 VERSION 1.6 ** 

70 DIM P(99),FS(7),CATS(8),X$(1):F$="D:-.DAT“ 

90 FOR D=0 TO 99:P(Di=01 NEXT D 
110 REM ********* MENU ********* 

155 GRAPHICS 0 

156 ? "Enter the coin catagoryl" 

157 ? :?:?:?:?:?• 1.Pennies" 

158 ? “ 2.Nickels" 

159 ? “ 3.Dimes" 

160 ? * 4.....0uarters“ 

161 ? “ 5.Half Dollars" 

162 L=155:TRAP 4000:INPUT Cl:IF CKl OR Cl>5 THEN GOTO 155 

163 FS(3,3)=CHR$(64+C1) 

168 FOR N=1 TO Cl:READ CATS:NEXT N 
170 GRAPHICS 0 

190 ? “Coin Collection Program" 

210 ?:?:?:?"Your options are:" 

220 ? " 1.Display" 

250 ?" 2.Input" 

270 ? " 3.Save" 

290 ? “ 4.Retrieve" 


310 ? * 5.End Program" 

330 ?:?:?:?"Nhat is your choice"; 

350 L=170: TRAP 4000: INPUT C: IF C<1 OR 05 THEN 170 
370 ON C GOTO 930,480,680,830 
410 END 

430 REM ********* INPUT ********* 

480 GRAPHICS 0 

490 TRAP 6i0:?:?CAT$; c : Nhat is the date, 19";:INPUT D 

570 IF D<0 OR D>99 THEN ? "Invalid inpuflGOTG 490 

585 IF PCD)>254 THEN ? "The record is bulled for that 

date.”:GOTO 490 

590 P(D)=P(D)+l:GQT0 490 

610 L=530:TRAP 40000:GOTO 170 

650 REM ******* SAVE DATA ******* 

680 FOR X=0 TO 99:IF PCX)>0 THEN 690 

685 NEXT X:? "THERE ARE NO RECORDS":FOR 6=1 TO 400:NEXT 

G:G0T0 170 

690 OPEN #1,8,0,Ft 

710 FOR X=0 TO 99 

730 A=P(X):PUT #1,A 

750 NEXT XICLOSE *l:60T0 170 

790 REM ***** RETRIEVE DATA ***** 

830 TRAP 910 

850 OPEN #1,4,0,FI 

870 FOR X=0 TO 99 

890 GET #1,A:P!X)=A:NEXT X 

910 CLOSE #UTRAP 40000:80TO 170 

950 REM ******** DISPLAY ******** 

990 GRAPHICS 0:TD=0 

1005 X=INTC20-CLEN(CATI)/2)):F0R Y=1 TO X:? " ";:NEXT Y:’ 
CATS 

1010 TC=—20 

1030 FOR C=3 TO 30 STEP 3;P0KE 82,C:PQKE S4,2:TC=TC+10 

1050 IF SGN(TC)=-1 THEN ? “ ":6QT0 1130 

1070 IF 3SNCTO =0 THEN ? TC;TC:G0T0 1130 

1110 ? TC 

1130 FOR U=0 TO 9 

1150 IF SGN(TC)=-1 THEN ? U:G0T0 1190 

1170 ? P(TC+U5 

1190 NEXT UJPOKE 84,0 

1210 NEXT C 

1230 FOR X=0 TO 99:TD=TD+PCX):NEXT X 

1250 POKE 82,0:position 0,15:? “ total coins:";TD:?:?:? U 

PRESS (RETURN) TO GO BACK TO THE MENU":INPUT XSlGOTO 170 

2000 DATA PENNIES,NICKELS,DIMES,QUARTERS,HALFS 

4000 ? "INVALID INPUT TRY AGAIN ":F0R D=1 TO 400:NEXT D:G0TQ 
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SUNNYVALE_SECREJS 

by the Secret Sunnyvale Correspondent 

Rumors abound but the Secret Sunnyvale Correspondent 
knows all! I have the answers to some of your questions. 
Please contact this publication if YOUR question has not 
been answered! Due to ATARI’S management shuffle, I have 
been out of touch will all of you. So, to keep things 
short, here’s a list of what’s new: 


8: What has happened to ATARI hardware? 

A: While Ray Kassar was in charge of developsent, he thought 
the ATARI computers were nothing sore than sophisticated 
’game machines’! ft was during this tiae that aany of 
ATARI’S real talent left to form their own companies. ATARI 
is now recovering with the new aanagesent structure. 


8: Where’s DOS 3.0 ??!!! 

A- It HAS been released and should be on the shelves by 
the tiae you read this. If a friend of yours has 3.0, you 
may not want his version - There were aany last-ainute 
revisions! 


That's it for this lonth! Keep your cards & letters cosing. 


Signed, 

ssc 


Q; Can you tell me anything about the new Touch Tablet? 

A; Yes, the same people (Island Software & David Thornberg) 
;*ho developed the KOALA TOUCHPAD have also developed our 
Touch Tablet. The software is 100% compatible! This should 
be a good standard as aany new programs (like Husic 
Construction Set) are including a 'touchpad' option on the 
list of inputs (like paddle, keyboard & joystick). Also, 
ATARI'S Touch Tablet has the stylus electrically connected 
to the tablet so that control is now on the stylus and not 
the pad! This should sake some things easier. 

8; What ever happened to the North American Phillips 

takeover? 


IECH_IALK 

by John Baum, STS Video 

This is a question and answer column in which your 
questions about the technical aspects of your Atari will be 
answered each month. If you have a service or techniLdi 
question, please send it to CURRENT NOTES care of Tech Talk. 


A: There was never any takeover planned! (This was a rumor 
out of control!) North American Phillips (N0RELC0) was 
interested ONLY in the record business of Harner 
Communications! NOT ATARI computers! 


8; Nhat new products are on the drawing boards now? 

A: A new addition to the XL series using a 6509 chip will 
give ATARI access to 128K of memory. No release date on 
this one. The CF/H machine is up and running but, again, no 
date is set for introduction. The same is true for the 
universal interface box (to run ANY manufacturer's software 
- too bad). The 1030 modem has finally filled the pipelines 
and you should start seeing them soon! The 350 interface 
will be back in FULL production as you read this. 
Unfortunately, ATARI may be a little too late on this one 
other manufactures have developed products that perform as 
if the 850. were installed! 
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EINpij 

by Bili Schadt 


90115LI ter .Browsing 

by Hike Barrett 


When developing or debugging a long program, I often 
find that I stop and write a short utility program to 
accomplish some task. Often, I don't bother to store the 
utility program because it is either too short or I simply 
cannot be bothered. The FINBIT program listed below is, 
however, an exception because I use it so often. 

Suppose that you have LISTed a program called PSNAHE to 
the disk, and you want to see every line in PSNAHE which 
contains something like the word “POKE", or "RESTORE" or any 
other character string. List the latest version of PSNAHE 
to the disk, and then simply RUN the FINBIT program. If 
your listed program is not called PSNAHE, simply put the 
correct name into line 10 of FINBIT. 

When FINBIT is RUN, your are prompted with "FIND 
WHAT?". You type in the string (called FIND!) which you 
want to find. FINBIT then opens the PSNAHE file on the disk 
and begins the process of testing each line to determine if 
the line contains FINB$. If a match is found the entire 
line is printed by line 260. If no match is found, 
processing continues until the end of the PSNAHE file 
triggers the TRAP 400 set in line 30. 

The result of the scanning process can be sent to the 
printer simply by replacing "?" in line 260 with LPRINT. 

FINDIT is definitely not fast. It is a great prograa 
to run while you go get a beer or attend to soae other 
necessary huean function. In any case, it can be a handy- 
utility during long prograa debugging sessions. 

Notice the INPUT on line 15 and the content of line 16. 

I discovered that the prograa would not work if I typed one 
or acre spaces in response to the 'FIND WHAT ?“ proapt. I 
really don’t know why the input of a spacets) does not work, 
but it does not. I hope that one of the hackers in AURA 
will explain it to ae. 

***** PROGRAM LISTING ***** 

3 DIM N*(151,X*!3Q0),FIND*t40) 

6 REM N*=NAHE OF PROGRAM TO BE 

7 REM EXAMINED TO DETERMINE WHICH 

8 REM LINES CONTAIN FIND* 

10 N$=' ! D:PGNAHE. 11 

15 ? 'FIND WHAT';:INPUT FIND* 

16 IF FIND*=““ THEN FINB*=" “ 

20 OPEN #1,4,0,N* 

25 LF=LEN(FIND*)-1 

30 TRAP 400:REM CATCH ERROR 136 - EOF 
100 INPUT #l;Xt:REM READ NEXT LINE 
110 REM DOES X* CONTAIN FIND* ? 

200 FOR C=1 TO (LEN(X*)-LF) 

220 IF X*(C,C+LF)=FIND* THEN 260 
W 230 NEST C 
240 SOTO 100 

250 REH HATCH FOUND HERE - 

260 ? x$:pop :sotg 100 

400 CLOSE #1 


If you have a modem, by calling 893-US74, you can hook 
up to Tyson - s Corner Center's shopping information service. 
This service, which is probided by TTSS, Inc. of Rockville, 
HD, gives you useful information about "what's happening" at 
the center, including films and performance times at the 
nine cinemas and sales and specials available from the 
various merchants. 

You are presented with fifteen minutes to browse 
through various menus and to select items of interest. You 
are periodically reminded of your time remaining throughout 
your session, but since there is no charge for the service 
and don't have to identify yourself, you can simply call 
again if you run out of time. 

One of the most interesting services available is "gift 
ideas,*■ which enables you to get eight or nine suggestions 
for gifts according to the sex, age and lifestyle of the 
recipient and the price range of the gift. The results are 
not particularly sophisticated, but it is fun to use and you 
do get the name of the item, its price and the store where 
it is available. 

According to the Journal newspapers, the Tyson's Corner 
service is the first of its kind in the nation for home 
computer use. A similar service is available at the center 
itself but, as the Journal points out, color graphics that 
appear there will not appear on the homw screens. The 
excuse given is that most computer owners don't have the 
same graphics capability on their home computers and that 
those that do have incompatible equipment. Of course, if 
everyone owned and Atari, this would not be a problem. 

I note that it never occurred to me to write this 
article until Art Corte, our program chairman, suggested it 
to me, I encourage other to do the same or, if they do not 
have the inclination, to let me know about similarly 
available services and I will try them . out (barring 
excessive telephone charges) and inform the group, Hv 
number in Reston, VA is 437-7522 or at work(DC) 633-2148. 
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